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1. WSTĘP 


Historia języka Pascal datuje się od 1974 roku, kiedy to 
Niklaus Wirth — jego twórca — oraz Kathleen jensen opubliko— 
wali poprawione opracowanie zawierające opis języka. 

Początkowo Pascal służył wyłącznie jako narzędzie do na— 
uczania programowania strukturalnego. Opracowanie tanich i 
dobrych kompilatorów spowodowało jednak, że język bardzo się 
rozpowszechnił i należy obecnie do najważniejszych współczes— 
nych języków programowania © zwłaszcza zagadnień o charakte- 
rze systemowyw. 

Jednym z ważnych dialektów standardowego języka Pascal, 
zgodnym z nim w ponad 90%, jest język Turbo Pascal. Został on 
opracowany Zz myślą o zastosowaniach mikrokomputerowych i bez— 
pośrednio po wprowadzeniu na rynek przez firmę Borland 
odniósł światowy sukces. 

Do najważniejszych zalet języka Turbo Pascal należą: 
mały rozmiar kompilatora, bardzo szybka kompilacja programów, 
złączenie kompilatora języka z interakcyjnym edytorem ekrano- 
wym, sygnalizowanie błędów na poziomie programu źródłowego, 
obszerna biblioteka podprogramów oraz rozszerzenia w stosunku 
do języka standardowego ułatwiające programowanie systemowe. 

Nazwa Turbo Pascal dotyczy interakcy jnego systemu 
programowania, składającego się z kompilatora języka Turbo 
Pascal oraz złączonego z nim edytora ekranowego. Edytor 
systemu Turbo Pascal jest wzorowany na powszechnie znanym 
edytorze WordStar, a interakcy jność systemu przejawia się w 
głównej mierze wygodą edycji oraz sygnalizowaniem błędów wy- 
krytych w programach bezpośrednio w obrębie tekstu źródłowe— 
go. 

Naturalne i wymagające minimalnej liczby manipulacji 
przechodzenie między edycją, kompilacją i wykonaniem programu 
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powoduje, że uruchamianie programów w systemie Turbo Pascal 
odbywa się prawie wyłącznie na poziomie źródłowym. Znaczna 
szybkość kompilowania programów powodu je natomiast, że 
przejście od programu źródłowego do programu wykonywalnego 
jest niemal natychmiastowe. wydatnie skraca to cykl modyfiko- 
wania programu i przyspiesza uzyskanie jego wersji końcowej. 

W celu zilustrowania zasad posługiwania się systemem 
Turbo Pascal zostanie rozpatrzony prosty program do wyznacza 
nia objętości kuli o zadanym promieniu. 


program Volume; 
var 
Rad,Voł : real; 
begin 
CirScr; 
GotoXYC10,1102; 
VriteC radius m ”); 
Readln(CRad); 
Voł:=4/3*Pi*Rad*Rad*Rad; 
GotoXY(10,13); 
Yriteln( volume = ”,Vol); 
repeat until KeyPressed 
end. 


Ww programie tym występuje predefiniowana nazwa  literału 


Pi* stanowiącego przybliżenie liczby n oraz nazwy symboliczne 
Rad i Vol reprezentujące odpowiednio promień i objętość kuli. 
Wykonanie procedury CłrScr powoduje wyzerowanie ekranu, a wy- 
konanie procedury GotoXY powoduje ustawienie kursora w pozy” 
cji o podanych współrzędnych. w przypadku wywołania 
GotoXYC10,13> jest to 10 kolumna i 13 wiersz. Zarówno numery 
kolumn, jak i wierszy są liczone od 1 do wartości maksymal— 
nej. Wykonanie cyklu repeat until powoduje wstrzymanie wy- 
konywania programu do chwili wprowadzenia dowolnego znaku z 
klawiatury. Znak ten pozostaje w buforze wejściowym i może 
być następnie zinterpretowany przez system Turbo Pascal. 

W celu skompilowania i wykonania przytoczonego programu 
należy w pierwszej kolejności wywołać system Turbo Pascal. 
Odbywa się to za pomocą wywołania programu Pascal. 


* Literał jest napisem reprezentującym stałą — obiekt, który 
podczas wykonywania programu nie ulega zmianie. Wielu autorów 
miesza te dwa pojęcia i nazywa literały stałymi, a nazwy 
zmiennych — zmiennymi. 
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Bezpośrednio po wywołaniu tego programu na ekranie monitora 
pojawia się napis identyfikujący system 


Pascal wersja 3.00A 
mikrokomputer ELWRO 800 Junior 
system operacy jny CcPZJ 


Komunikaty o błędach CT/N>? 


w przytoczonym napisie jest zawarte pytanie, czy do sys— 
temu należy dołączyć zbiór tekstów stanowiących komunikaty. 
Ponieważ komunikaty te zajmują zaledwie 1,5 Kb pamięci, a ich 
występowanie znacznie ułatwia diagnostykę, zaleca się udzie— 
lenie odpowiedzi Y. 

W chwilę po udzieleniu odpowiedzi, na ekranie monitora 
pojawia się menu, w którym wybrane litery poszczególnych słów 
są wyróżnione przez negac ję. 


Bieżący dysk: 
plik Koboczy: 
plik Główny: 


Zlecenie Wykonanie 
Katalog Składowanie Opc je 
Edycja Translacja Cp-j 
tekst: 

wolne: 


wprowadzenie z klawiatury dyrektywy mającej postać  jed— 
nej z wyróżnionych liter powoduje stworzenie warunków do 
interakcy jnej zmiany parametrów systemu. 


Dyrektywa B 


Wprowadzenie z klawiatury litery B umożliwia zmianę 
bieżącej stacji dyskowej, którą bezpośrednio po zainicjowaniu 
systemu jest stacja A. Jeśli jest np. pożądane wyróżnienie 
stacji B, Ło bezpośrednio po zapytaniu 

Nowy dysk: 


należy wprowadzić z klawiatury parę znaków B: zakończoną zna— 
kiem CR. 


Dyrektywa R 


wprowadzenie z klawiatury dyrektywy W umożliwia określe-— 
nie nazwy zbioru roboczego zawierającego program źródłowy. 
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Zbiór ten może już istnieć, ale również może być zbiorem, 
który ma być bezpośrednio utworzony. Bezpośrednio po zapyta- 
niu 

Plik roboczy: 


należy wprowadzić tekst określający nazwę zbioru, zakończony 
znakiem CR (Elwro 800 jr> albo Enter CIBM PG©. Dla rozpa- 
trywanego programu przykładowego mógłby to być np. tekst 
TBO01.PAS. 

W systemie CP/J nazwa zbioru może być określona jako 
dwuczłonowa. Pierwszy człon składa się z nie więcej niż 8 
znaków, a drugi — nazywany rozszerzeniem — z nie więcej niż 3 
znaków. Człony są oddzielone znakiem Ckropka>. jeśli w od- 
powiedzi na rozpatrywane zapytanie o nazwę zbioru ograniczyć 
się do pierwszego członu nazwy, to zostanie domniemana kropka 
oraz rozszerzenie PAS. Aby uniknąć domniemania rozszerzenia, 
można ograniczyć się do podania pierwszego członu nazwy 
oraz kropki. 

Należy nadmienić, że jeśli ustalenie nowej nazwy zbioru 
roboczego następuje w sytuacji gdy nie zapamiętano na dysku 
poprzedniego zbioru roboczego, to system wyprowadza komunikat 
zapytujący, czy zbiór poprzedni powinien zostać zapamiętany. 
Odpowiedzią na takie zapytanie jest jak zwykle T (tak> albo N 
(nie). 


Dyrektywa G 


Wprowadzenie z klawiatury dyrektywy G umożliwia okre- 
ślenie nazwy zbioru poddawanego kompilacji. Jeśli nazwa taka 
nie zostanie ustalona, to kompilacji podlega aktualny plik 
roboczy. 

Zasady określania nazwy zbioru poddawanego kompilacji, 
nazywanego dalej zbiorem głównym, są takie same jak dla zbio- 
ru roboczego. Użycie zbioru głównego jest wygodne wówczas, 
gdy program źródłowy zawiera dyrektywy włączające w miejscu 
ich wystąpienia zawartość innych zbiorów. w takim przypadku 
stwierdzenie błędu kompilacji w jednym ze zbiorów włączonych 
czyni go zbiorem roboczym, nadającym się do natychmiastowej 
edycji. Po jej wykonaniu można w prosty sposób ponowić kompi— 
lację programu zawartego w zbiorze głównym. 


Dyrektywa E 


Wprowadzenie z klawiatury dyrektywy E powoduje wywoła- 
nie edytora i podjęcie edycji zbioru roboczego. Jeśli do tej 
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chwili nie została określona nazwa zbioru roboczego, to sys-— 
tem wyprowadza komunikat jak podczas wprowadzania dyrektywy 
R, a edycję podejmuje dopiero po zidentyfikowaniu zbioru. 


Dyrektywa T 


wprowadzenie z klawiatury dyrektywy IT powoduje wykona- 
nie kompilacji zbioru głównego. Jeśli do tej chwili nie okre— 
$lono nazwy tego zbioru, to podejmowana jest kompilacja 
zbioru roboczego. Jeśli określono nazwę zbioru głównego, a 
poddawano edycji zbiór roboczy, to rozpoczęcie kompilacji 
zostanie poprzedzone zapamiętaniem zbioru roboczego w pamięci 
zewnętrzne j. 

w wyniku wykonania kompilacji powstaje program  rezydu— 
jący w pamięci operacyjnej lub program umieszczony w zbiorze 
z rozszerzeniem .COM albo .CHN. Decyzja o sposobie przeprowa— 
dzania kompilacji jest podejmowana na podstawie opcji kompi— 
lacji ustawianych za pomocą dyrektywy O. Przez domniemanie 
przyjmuje się, że program wynikowy ma być umieszczony w pa— 
mięci operacy jnej. 

Jeśli podczas wykonywania kompilacji zostanie wprowa— 
dzony z klawiatury dowolny znak, to kompilacja zostanie 
wstrzymana. Bezpośrednio po udzieleniu odpowiedzi na zapyta— 
nie 

PRZERWANIE KOMPILACJI CT/N>? 


nastąpi zaniechanie albo kontynuowanie kompilacji. 


Dyrektywa W 


wprowadzenie z klawiatury dyrektywy W powoduje wykona— 
nie właśnie skompilowanego programu rezydującego w pamięci 
operacyjnej. Jeśli za pomocą dyrektywy O zostanie ustawiona 
opcja plikCom, to wykonanie będzie dotyczyć tego programu 
znajdującego się w pamięci zewnętrznej. Jeśli przed użyciem 
dyrektywy W nie posłużono się dyrektywą T, to podjęcie wyko= 
nywania programu zostanie automatycznie poprzedzone jego kom— 
pilac ją. 


Dyrektywa S 


wprowadzenie z klawiatury dyrektywy S powoduje zapamię— 
tanie zbioru roboczego w pamięci zewnętrznej. Poprzednia 
wersja tego zbioru zostanie przemianowana w taki sposób, że 
otrzyma rozszerzenie .BAK. 
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Dyrektywa 2 


Wprowadzenie z klawiatury dyrektywy Z umożliwia wykona— 
nie dowolnego programu znajdującego się w zbiorze o podanej 
nazwie. Bezpośrednio po zapytaniu 


Program: 


należy podać nazwę zbioru z rozszerzeniem .COM zawierającego 
program wykonywalny. 


Dyrektywa K 


wprowadzenie z klawiatury dyrektywy K umożliwia wypro-— 
wadzenie nazw zbiorów znajdujących się w katalogu.  Bezpośre— 
dnio po zapytaniu 


maska: 


należy podać nazwę zbioru albo nazwę rodziny zbiorów, np. 
B:*. JB? (* oznacza dowolny dopuszczalny ciąg znaków, a ? -— 
dowolny dopuszczalny znak). Jeśli udzielając odpowiedzi na 
zapytanie nie podano nazwy stacji dyskowej albo nazwy katalo— 
gu, to zostaną one domniemane zgodnie z menu. 


Dyrektywa C 


wprowadzenie z klawiatury dyrektywy © powoduje zakoń— 
czenie współpracy z systemem Turbo Pascal 1 wywołanie syste— 
mu operacy jnego. Jeśli przed użyciem dyrektywy C poddawano 
edycji zbiór roboczy, to wywołanie systemu operacyjnego zos-< 
tanie poprzedzone zapytaniem, czy zbioru tego nie należy za- 
pamiętać w pamięci zewnętrznej. 


Dyrektywa O 


wprowadzenie z klawiatury dyrektywy O umożliwia 
określenie opcji kompilacji. Przez domniemanie przyjmuje się, 
że program wykonywalny zostanie umieszczony w pamięci opera— 
cyjnej. Jeśli po użyciu dyrektywy O zostanie użyta poddyrek— 
tywa CC, to program ten będzie umieszczony w pamięci zewnę- 
trznej jako zbiór z rozszerzeniem .COM. Przywrócenie pierwo— 
tnego domniemania można uzyskać za pomocą poddyrektywy P. 

Jeśli zostanie użyta poddyrektywa H, to program wykony- 
walny zostanie umieszczony w pamięci zewnętrznej jako zbiór o 
nazwie z rozszerzeniem .CHN. Program zawarty w takim zbiorze 
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różni się tym od programu zawartego w zbiorze o nazwie z roz— 
szerzeniem .COM, że nie zawiera biblioteki podprogramów 
standardowych i musi być wywoływany z innego programu za po- 
mocą specjalnej procedury Chatn. 

Posłużenie się poddyrektywą P umożliwia określenie  pa-— 
rametrów programu wykonywalnego umieszczonego w pamięci ope- 
racyjnej. Zostaną one przekazane programowi dokładnie w taki 
sposób, w jaki są przekazywane parametry programom wywoływa— 
nym z pamięci zewnętrzne j. 

Użycie poddyrektywy B umożliwia zlokalizowanie błędu 
wykonywania programu umieszczonego w zbiorze o nazwie z roz— 
szerzeniem .COM albo .CHN. W odróżnieniu od programów wykony— 
walnych umieszczanych w pamięci operacyjnej, których błędy 
wykonywania są sygnalizowane przez wskazanie miejsca błędu w 
tekście źródłowym, błędy wykonywania programów umieszczanych 
w pamięci zewnętrznej są sygnalizowane w sposób zakodowany, 
przez podanie numeru błędu i stanu licznika instrukcji. Jeśli 
po zapytaniu wywołanym użyciem poddyrektywy B zostanie podany 
ten właśnie stan licznika instrukcji, to automatycznie zosta 
nie wskazane miejsce w programie źródłowym, gdzie wystąpił 
błąd wykonywania. 

Ostatnią poddyrektywą dyrektywy O jest poddyrektywa W. 
Jej wykonanie kończy wykonywanie dyrektywy 0 powodu je 
przywrócenie głównego menu. 

Jak wynika z  przytoczonego opisu, posługiwanie się 
dyrektywami i poddyrektywami systemu Turbo Pascal jest w mia-— 
rę nieskomplikowane. Równie proste jest wprowadzanie i popra-— 
wianie programu źródłowego, następujące po użyciu dyrektywy E 
albo automatycznie, po zlokalizowaniu błędu podczas  kompilo— 
wania programu. 

zasady posługiwania się edytorem systemu Turbo Pascal 
wynikają z jego podobieństwa do procesora tekstów  WordStar, 
na którym jest on wzorowany. Odsyłając do dodatku wszystkich 
zainteresowanych pełnymi możliwościami tego edytora, ograni— 
czymy się do przytoczenia minimalnego zestawu dyrektyw umo= 
żliwiających obróbkę programów źródłowych. 

Na wstępie należy zauważyć, że jeśli ktoś nie popełnia 
błędów, to bezpośrednio po wywołaniu edytora za pomocą dyrek— 
tŁywy E może wprowadzić tekst programu jako ciąg wierszy za— 
kończonych znakami CR (Elwro 800 Jr> albo Enter CIBM PQ, a 
następnie posłużyć się dyrektywą "KD kończącą edycję i 
przywracającą główne menu Systemu. 

Dyrektywa "KD składa się z liter K i D i podobnie jak 
pozostałe dyrektywy edytora systemu Turbo Pascal wymaga 
posłużenia się klawiszem Ctrl. Klawisz ten powinien być wciś— 
nięty podczas wprowadzania litery K. Będzie to oznaczane 
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skrótowo za pomocą opisu Ctrl-K-D albo "KD. 

W obrębie tekstu wyświetlanego na ekranie monitora  je- 
den ze znaków jest wyróżniony za pomocą kursora. Operacje na 
tekście są zawsze wykonywane w oOdniesieniu do tego znaku, 
zawierającego go Słowa albo wiersza. 

Przesunięcie kursora o jedną pozycję w lewo, w prawo,w 
górę lub w dół odbywa się za pomocą klawiszy strzałkowych lub 
dyrektyw Ctrl-S, Ctrl-D, CGtrl-E lub Ctrl-X. Klawisze S, D, E 
i X tych dyrektyw tworzą romb 

R E 

+ , S D 

* X 
a jak łatwo zapamiętać, dyrektywa Ctrl-E przesuwa kursor o 
jedną pozycję w górę, dyrektywa Ctrl-X — o jedną pozycję w 
dół, dyrektywa Ctrl-S — o jedną pozycję w lewo, a dyrektywa 
Gtr1l-D — o jedną pozycję w prawo. Dzięki takiemu rozwiązaniu 
o funkcji dyrektywy decyduje nie mnemonika nazwy Jej 
klawisza, lecz położenie klawisza w  przytoczonym układzie 
czterokierunkowym. 

Usuwanie znaków tekstu odbywa się za pomocą klawisza 
DEL. Każdorazowe naciśnięcie tego klawisza powoduje usunięcie 
znaku znajdującego się z lewej strony znaku wyróżnionego 
przez kursor. wstawianie nowych znaków między słowami lub w 
obrębie słów tekstu nie wymaga specjalnych zabiegów. Każdy z 
takich znaków jest wstawiany bezpośrednio przed znakiem 
wyróżnionym przez kursor, a pozostałe znaki wiersza zostają 
przesunięte o jedną pozycję w prawo. Usuwanie całych wierszy 
odbywa się za pomocą dyrektywy Ctrl-Y, usuwanie słów — za 
pomocą dyrektywy Ctrl-T, a wstawianie nowych wierszy — za 
pomocą dyrektywy Ctrl-N. wiele innych dyrektyw i możliwosci 
edytora opisano w dodatku. 

Podsumowując to, co przedstawiono w niniejszym  roz— 
dziale, można podać, że uzyskanie wykonywalnego programu 
przedstawionego na wstępie wymaga wykonania następujących 
czynności: 


e Wywołania systemu Turbo Pascal 
PASCAL 
Dołączenia do kompilatora zbioru komunikatów 
T 
e Określenia nazwy zbioru roboczego 
R 
źżainicjowania wprowadzenia programu źródłowego 
E 
e Polecenia wykonania kompilacji 
T 
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e Polecenia wykonania programu skompilowanego 
W 


Po wykonaniu tych czynności można powrócić do systemu opera— 
cyjnego, posługując się w tym celu dyrektywą C. 

W przypadku gdyby było pożądane przechowanie programu 
wykonywalnego jako zbioru z rozszerzeniem .COM, należałoby 
przed wykonaniem kompilacji posłużyć się dyrektywą O, a 
następnie poddyrektywami C i Ww. Po wykonaniu kompilacji i po” 
wrocie do systemu operacyjnego wspomniany program mógłby być 
wykonywany już bez udziału systemu Turbo Pascal. 


2. JEDNOSTKI LEKSYKALNE, ODSTĘPY, KOMENTARZE 


Przystępując do szczegółowego omówienia języka progra— 
mowania Turbo Pascal, należy zacząć od jego jednostek leksy-— 
Ralnych, którymi — jak w każdym języku programowania — są 
słowa kluczowe, identyfikatory, łiterały i separatory.  Spa— 
cje, znaki tabulacji, znaki przejścia do nowego wiersza i 
komentarze nie stanowią jednostek leksykalnych. Każdy ciąg 
takich znaków i komentarzy jest traktowany tak jak pojedyn— 
cza spacja i będzie krótko nazywany odstępem. Użycie odstę— 
pu jest niezbędne jedynie wówczas, gdy w programie źródłowym 
sąsiadują ze sobą identyfikatory albo słowa kluczowe. 

zgodnie z przytoczoną klasyfikacją każdy program zapi— 
sany w języku Turbo Pascal składa się z jednostek  leksykal-— 
nych i odstępów. Wyodrębnienie tych obiektów odbywa się pod- 
czas analizowania programu, dokonywanego w naturalnym porząd— 
ku, tj. od lewej do prawej i od góry do dołu. Za jednostkę 
leksykalną jest uznawany w takim przypadku najdłuższy ciąg 
znaków nie zawierający odstępów, który może uchodzić za  jed- 
nostkę leksykalną. 

Jednostki leksykalne i komentarze są tworzone z symbołi 
podstawowych, do których zalicza się: 


e małe i duże litery alfabetu angielskiego, wraz ze 
znakiem podkreślenia 


>» 2aA,DbD, C, d, e, f, 6©, h, i, jj, k, 1, m, 
n, o, p, q, r, s,t, u, v, w, x, y, Z, 
A,B, G,D,E, F, GH, I, J, K, L, M, 
N, O,P, Q,R,S, TU, V,Ww, X, Y, Z 


e cyfry dziesiętne 
O, 1, 2, 3, 4,5, 6, 7, 8,9 


Słowa kluczowe 


e znaki specjalne 


+ -— * / = ( 
> [ I] << > 
> . ż > - 
e symbole złożone 
przypisania: ; ze 
relacje: <> 
zakresy: .. 
nawiasy: (* 


Cnawiasy z gwiazdkami pełnią rolę 


wych, 


Litery duże i małe nie są odróżniane. Powoduje to m.in., 


a 


$ 


<= 


*» .. .2 
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nawiasów klamro= 


a nawiasy z kropkami — nawiasów kwadratowych). 


że 


identyfikatory takie jak np. fiłename i FileName są uznawane 


za identyczne. 


2.1. SŁOWA KLU 


CZOWE 


Słowem kluczowym jest spójny ciąg liter tworzący jedno 


z wymienionych 


absolute 
and 
array 
begin 
case 
const 


Przykład. 
begin 
end. 


e Program składa się z dwóch słów kluczowych i 


tora. 


e Wykonanie tego programu nie 


ków. 


niżej słów 
external 
file 
for 
forward 
function 
goto 
if 
in 
inline 
label 
mod 


nil 

not 

of 

or 
overlay 
packed 
procedure 
program 
record 
repeat 
set 


wywołu je 


shl 
shr 
string 
then 
to 
type 
until 
var 
while 
with 
xor 


Najkrótszy program w jezyku Turbo Pascal 


separa— 


żadnych  skut— 


„2. IDENTYFIKATORY 
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Identyfikatorem jest ciąg literowo-cyfrowy, rozpoczyna— 


jący się od litery, 
"Literą' użytą w identyfikatorze może być dowolna 
mała litera alfabetu 
Liczba 


znaków 


taki który 


wiele identyfikatorów 


Abs 
Addr 
ArcTaa 
ASS i gn 
Bdos 
Bios 
BiosHL 
BlockRead 
BlockVrite 
Boolean 
BujfLen 
Byte 
Chain 
Char 
Chr 
Close 
CirEol 
CirSer 
Con 
Concat 
Copy 
Cos 
CrtExit 
CrtInit 
DelLine 
Delay 


Jeśli w programie zostanie zadeklarowany 
występujący na przytoczonej liście, to w zasięgu tej deklara— 
cji zostanie przesłonięte pierwotne znaczenie danego 
fikatora. 


służy do oznaczania literałów, 
grupy należą m.in. 


angielskiego 
identyfikatora 
Wszystkie jego znaki są istotne. 


nie jest 


oraz 
nie może 


predefiniowane 
funkcji i 


słowem 


kluczowym. 
duża albo 


znak podkreślenia. 
przekroczyć 127 


znaczenie 


procedur. Do tej 


następujące identyfikatory: 


Delete 
Dispose 
£of 

Eoln 
Erase 
Execute 
Exit 

Exp 
False 
FilePos 
FileSize 
FillChar 
Flush 
Prac 
PreeHem 
Get Nem 
GotoXY 
Halt 
HeapPtr 
Hi 

Input 
InsŁine 
lat 
Integer 
IOresult 
Kba 


KeyPressed 
Length 

Ln 

Lo 

LowV ideo 
Lst 

Mark 
MaxAvail 
MaxInt 
Hem 
MemAvail 
Move 

New 

NormVv ideo 
Odd 

Ord 

Qut put 
Ovr Drive 
ParamCount 
ParamStr 
Pi 

Port 

Pos 

Pred 

Ptr 
Random 


Read 
Readln 
Real 
Release 
Rename 
Reset 
Revrite 
Round 
Seek 
Sin 
SizeOf 
SRp£of 
Skp£oln 
Sqr 
Sąrt 
StT 
SUucc 
Svap 
Text 
Trm 
True 
Trunc 
UpCase 
Fal 
Write 
Vriteln 


identyfikator 


identy— 
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Przykład. Przesłonięcie znaczenia identyfikatora 


program jb; 
const 
false = true; 
begin 
Writeln(false) 
end. 


e Wykonanie programu powoduje wyprowadzenie napisu 
true. 

e Gdyby z programu usunięto tekst między pierwszym śre— 
dnikiem a słowem begin (wyłącznie>, to wykonanie programu 
spowodowałoby wyprowadzenie napisu false. 


2.3.  LITERAŁY 


Łiterały dzielą się na arytmetyczne, znakowe, łańcucho-— 
ve i logiczne. Literały arytmetyczne dzielą się na całkowite 
i rzeczywiste. 


Literały całkowite 


Podstawowy literał całkowiły składa się z ciągu cyfr 
dziesiętnych, który może być poprzedzony znakiem + (plus) lub 
— (minus). Wartość liczbowa literału całkowitego musi mieścić 
się w przedziale domkniętym [-32768,32767]. Literał całkowi— 
ty, którego wartość mieści się w przedziale domkniętym 
[0,255], będzie nazywany literałem bajłtowym. 

w języku Turbo Pascal zapewniono możliwość przedstawia— 
nia literałów całkowitych i bajtowych za pomocą liczb sze- 
snastkowych. W takim przypadku literał składa się ze znaku % 
dolar), po którym następują cyfry szesnastkowe. Przed zna- 
kiem $ może występować znak + (plus) albo — (minus). 


Przykład. Kilka poprawnych i niepoprawnych literałów całkowi— 
tych 
Literały całkowite: 23 


SABC 
—$2B 
Napisy, które nie są literałami całkowitymi: 
2B6 _ znak B nie jest cyfrą dziesiętną 
$3G — znak G nie jest cyfrą szesnastkową 
2.3 — znak nie jest cyfrą m 
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Łiterały rzeczywiste 


Łiterał rzeczywisty składa się z następujących po so- 
bie: części całkowitej, kropki, części ułamkowej, małej lub 
dużej litery E oraz wykładnika. Część całkowita, ułamkowa i 
wykładnik składają się z ciągów cyfr dziesiętnych, a część 
całkowitą i cyfry wykładnika może poprzedzać znak + (plus) 
lub = (minus). Część ułamkową wraz z kropką albo wykładnik 
wraz z literą E można pominąć. Zezwala się również, aby część 
ułamkowa literału była pusta. 


Przykład. Kilka poprawnych i niepoprawnych literałów  rzeczy— 
wistych 
Literały rzeczywiste: -—2.3 
2.5e2 
4.E-3 
2E3 
Napisy, które nie są literałami rzeczywistymi: 
3e2.0 -— kropka w wykładniku 
„25 — brak części całkowitej 
2.3D2 — błędny wykładnik a 


Łiterały łańcuchowe 


Łiterały łańcuchowe reprezentują ciągi znaków. jeśli 
literał łańcuchowy reprezentuje jeden znak, to jest nazywany 
łtterałem znakovym. W ogólnym przypadku literał łańcuchowy 
składa się z sekwencji znaków zawartych między parą apostro- 
fów, znaków sterujących i znaków wyrażonych dziesiętnie i 
szesnastkowo. W sekwencji zawartej między parą apostrofów mo— 
gą występować dowolne znaki widoczne wraz ze spacją, a znak ” 
capostrof> jest reprezentowany przez parę sąsiadujących  apo- 
strofów. Znaki sterujące są przedstawiane za pomocą pary zna— 
ków, z których pierwszym jest ” (caret)>, a drugi jest znakiem 
widocznym. Keprezentacja tak przedstawionego znaku steru jące— 
go jest identyczna z reprezentacją znaku uzyskanego przez je— 
dnoczesne naciśnięcie klawisza Ctrl i danego znaku widoczne— 
go. Znaki wyrażone dziesiętnie składają się ze znaku $% 
Chash>, po którym następuje dziesiętny kod znaku, a znaki wy- 
rażone szesnastkowo składają się z następujących bezpośrednio 
po sobie: znaku % Chash>, znaku $ (dolar»> i szesnastkowego 
kodu znaku. 
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Przykład. Kilka poprawnych i niepoprawnych  literałów łańcu- 
chowych 


Literały łańcuchowe: > jb” Cdwa znaki) 
222 «jeden znak) 
*G «jeden znak) 
465 «jeden znak) 
4841 «jeden znak)» 
*G* jb” (trzy znaki) 
> , dwa znaki spacji) 


-G0G0G*hello"+13410" jan” 
C13 znaków) 
Napisy, które nie są literałami łańcuchowymi: 


>>> — brak apostrofu 
4256 — kod większy niż 255 
KS4G — G nie jest cyfrą szesnastkową m 


Łiterały logiczne 


Literały logiczne mają postać napisów true i false. 
Pierwszy z nich reprezentuje daną logiczną 'prawda', a drugi 
— daną logiczną 'fałsz"'. 


Przykład. Kilka poprawnych i niepoprawnych literałów  logicz- 
nych 


Literały logiczne: false 
FALSE 
True 
Napisy, które nie są literałami logicznymi: 
prawda — błędny napis 
fałsz — błędny napis a 


2.4. KOMENTARZE 


Komentarzem jest napis rozpoczynający się od nawiasu 
klamrowego otwierającego, zakończony najbliższym nawiasem 
klamrowym zamykającym. Rolę nawiasów klamrowych: «  (otwiera— 
jącego i >» (zamykającego mogą pełnić symbole złożone (* i 
*y>. Komentarze ograniczone znakami « i > mogą być zagnieżdżo— 
ne w komentarzach ograniczonych symbolami (* i *)>, a komenta— 
rze ograniczone symbolami (* i *> mogą być zagnieżdżone w ko- 
mentarzach ograniczonych znakami ( i ». 

Jeśli bezpośrednio po znaku albo symbolu rozpoczyna ją- 
cym komentarz występuje znak $ (dolar>, to komentarz taki zo— 
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staje uznany za dyrektywę kompilatora. Dyrektywa taka nie mo— 
że znajdować się w komentarzu zagnieżdżonym. 


Przykład. Kikhka poprawnych i niepoprawnych komentarzy i dy- 
rektyw kompilatora 


Komentarze: (* data *) 
<« data *» 
€* out (file>*) 

Dyrektywy: (S$i inclłude.set *) 
(S$v,b+) 

Napisy, które nie są komentarzami: 

(* inside » — niepoprawne ograniczenie komentarza 

«Xinside>> — niepoprawne zagnieżdżenie 

Napisy, które nie są dyrektywami kompilatora: 

< $v= ) — spacja między « i $ 


$ v- » — spacja między $ i v- m 


3. STANDARDOWE TYPY SKALARNE 


Pojęcie typu wiąże się z ustalonym zbiorem danych. W 
tym sensie zmienna jest pewnego typu, jeśli można jej 
przypisywać dane należące do zbioru określającego ten typ. W 
języku Turbo Pascal wymaga się jawnego określenia typu każdej 
ze zmiennych programu. 

Związanie nazwy zmiennej z wybranym typem odbywa się w 
deklaracji zmiennej. Typy zmiennych, sklasyfikowane jak na 
rys. 3.1, dzielą się na proste i złożone. Typami prostymi są 
typy skalarne i vskazujące, a typami złożonymi — typy tabli- 
cowe, rekordowe, mnogościowe i plikove. Wśród typów ska- 
larnych można wyróżnić standardowe typy skalarne, takie jak: 
integer (całkowity), byte C(bajtowy), char (znakowy), boolean 
logiczny) i real (rzeczywisty).Pierwsze cztery będą również 
nazywane typami porządkowymi. Mają one tę właściwość, że ich 
elementy są nie tylko uporządkowane, ale również tworzą zbiór 
przeliczalny. 


porządkowe 
skalarne | 

rzeczywiste 
proste 


wskazu jące 
Typy 
łańcuchowe 
tablicowe 
złożone rekordowe 
mnogościowe 
plikowe 


Rys.3.1. Klasyfikacja typów 
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Standardowe typy skalarne są predefiniowane, tzn. nie 
wymagają definiowania. Zasięgiem ich niejawnych definicji 
jest cały program, z wykluczeniem tych jego fragmentów, w 
których wprowadzono jawne deklaracje przesłania jące. 


Typ integer 


Dana typu integer jest elementem podzbioru liczb całko- 
witych. Wartości tych liczb należą do przedziału domkniętego 
[-32768,32767]. Każda z danych typu integer jest  reprezento- 
wana w 2 bajtach pamięci. 

Podczas wykonywania działań arytmetycznych na danych 
typu integer nie kontroluje się występowania nadmiaru. Z tego 
względu warunkiem uzyskania poprawnego rezultatu operacji na 
danych typu integer jest przynależność argumentów i wszyst— 
kich wyników pośrednich do wymienionego wyżej przedziału. 


Typ byte 


Dana typu byte jest elementem podzbioru liczb całkowi- 
tych. Wartości danych typu byte należą do przedziału domknię— 
tego [0,255]. W prawie każdym miejscu programu, w którym w«wy— 
stępuje odwołanie do danej bajtowej, może wystąpić odwołanie 
do danej typu integer i odwrotnie. Jedyny wyjątek od tej za— 
sady dotyczy skojarzeń parametrów i argumentów procedur i 
funkcji. W Łym przypadku wymaga się pełnej zgodności typów 
danych. Każda z danych typu byte jest reprezentowana w 1 baj- 
cie pamięci. 


Typ ckar 


Dana typu char jest elementem zbioru znaków. Każda z 
danych typu char jest reprezentowana w 1 bajcie pamięci. 


Typ Doolean 


Dana typu boolean jest elementem dwuelementowego zbioru 
danych logicznych. Do oznaczenia tych danych służą standardo— 
we identyfikatory true i false. Każda z danych typu boolean 
jest reprezentowana w 1 bajcie pamięci. 
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Typ real 


Dana typu real jest elementem zbioru liczb rzeczywis— 
tych. Do zbioru tego należy liczba 0 oraz liczby dodatnie i 
ujemne, których wartości bezwzględne należą do przedziału 


(10 39,10**]. Każda z danych typu real jest reprezentowana w 
óć bajtach pamięci, z dokładnością do ok. 11 cyfr znaczących. 


4. STRUKTURA PROGRAMU 


Program napisany w języku Turbo Pascal składa się z na- 
główka programu, bloku i znaku . €kropka>. W nagłówku jest 
określoha nazwa programu oraz ujęty w nawiasy okrągłe wykaz 
identyfikatorów, opisujący sposób komunikowania się programu 
z otoczeniem. Blok składa się 2z części deklaracyjnej i 
wykonawczej. Zarówno nagłówek, jak i część deklaracyjna bloku 
mogą być pominięte. 


4.1. NAGŁÓWEK PROGRAMU 


Jeśli program zaczyna się od nagłówka, to występuje w 
nim przynajmniej nazwa programu. Po nazwie tej może wystąpić 
— ujęta w nawiasy okrągłe — lista parametrów programu. Lista 
ta wyszczególnia identyfikatory plików, za pośrednictwem któ- 
rych program komunikuje się z otoczeniem. Liście tej nie jest 
nadawana żadna interpretacja i z tego względu lista ta (wraz 
z otaczającymi ją nawiasami)> jest pomi jana. 


Składnia 
nagłówek-program: 
program nazwa-programu ( lista-nazv-plików > ; 
nazwa-programu: 
identyfikator 
nazwa-pliku: 
identyfikator 


Przykłady 
program Folume; 
program ŁisterCOutput); 
program Copier( Input , Output); m 
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4.2. BLOK 


Blok składa się z części deklaracyjnej i części wyko-— 
nawczej. W części deklaracyjnej znajdują się definicje typów, 
definicje nazw literałów, definicje i deklaracje podprogra— 
mów, a także deklaracje etykiet i zmiennych. Wszystkie te de-— 
klaracje i definicje mogą być w dowolnym porządku, a poszcze— 
gólne grupy deklaracji i definicji mogą Się przeplatać. 
Należy rozumieć to w taki sposób, że np. po definicjach typów 
mogą następować deklaracje zmiennych, a po nich ponownie 
definicje typów i znowu deklaracje zmiennych. Część  wykonaw— 
cza składa się z instrukcji grupującej, zawierającej instruk— 
cje programu. 


Składnia 
blok: 
część-dekłaracyjna część-wykonawcza 
część-deklłaracyjna: 
vykaz-deklaracji-i-definicji 
część-vykonawcza: 
instrukcja-grupu jąca 
deklaracje-i-definicje: 
deklaracje-etykiet 
definicje-nazw-łiterałów 
definicje-typów 
deklaracje-zmiennych 
definicje-i-deklarac je-podprogramóv 
inicjacje 


Deklaracje etykiet 


Każda instrukcja czynna programu może być poprzedzona 
eżykiełą umożliwiającą odwołanie się do niej w instrukcji 
goto. Etykieta składa się z identyfikatora albo z ciągu cyfr. 
Bezpośrednio po etykiecie następuje znak :  (dwukropek»> od- 
dzielający ją od innej etykiety albo instrukcji. Zanim ety- 
kieta zostanie użyta w programie, jej nazwa musi być 
zadeklarowana. Deklaracjeretykiet składają się ze słowa klu- 
czowego label, po którym następuje lista napisów identycznych 
z nazwami etykiet, zakończona średnikiem. 


Składnia 
deklaracje-etykiet: 
label lista-etykiet; 
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Przykłady 
label 10, abort, quit; 
label 99990; m 


Definicje nazw łiterałów 


W celu zwiększenia czytelności programu pożądane jest 
niekiedy zastąpienie literałów odpowiednio dobranymi  identy— 
fikatorami reprezentującymi te literały. W takich przypadkach 
każde wystąpienie identyfikatora jest równoważne wystąpieniu 
związanego z nim literału. W języku Turbo Pascal związanie 
identyfikatorów z literałami odbywa się podczas interpretowa— 
nia definicji na2zv łiterałów. Każda z definicji nazw  litera— 
łów składa się ze słowa kluczowego const, po którym następu je 
sekwencja przypisań. Każde z przypisań składa się z identyfi— 
katora, bezpośrednio po którym następuje znak = (równa się), 
wyrażenie stałe oraz znak ; (średnik)». Wyrażeniem stałym może 
być liczba, literał łańcuchowy, nazwa literału albo nazwa li-— 


terału poprzedzona znakiem — (minus>. Predefiniowanymi nazwa— 
mi literałów są 
Pi — typu real, reprezentujące literał 3.1415926536 


Maxint — typu integer, reprezentujące literał 32767 


Składnia 

definicje-nazuv-łiterałów: 
const sekvencja-przypisań 

przypisanie: 
identyfikator = liczba ; 
identyfikator = lłiterał-łekstowy ; 
identyfikator = nazwa-literału ; 
identyfikator = znak-nazwa-łiterału ; 


Przykłady 
const e = 2./18282; 
g = 9.81; 
const TvoChar = 2”; 
Tvo = Ż; 
Minus2 = -Tvwo; 
const FirstName = *” janek”; m 


Definicje typów 


Podczas deklarowania zmiennych programu następuje okre— 
ślenie ich typu. Typ zmiennej może należeć do zbioru predefi— 
niowanych typów standardowych, takich jak np. boolean lub 
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real, ale może także zostać zdefiniowany odrębnie w definicji 
typu. W ogólnym przypadku definicje-typów składają się ze 
słowa kluczowego type, po którym następuje sekwencja defi— 
nicji typów. każda z definicji typu składa się z  identyfi- 
katora typu definiowanego, znaku = (równa Się>, opisu typu i 
znaku ; Cśrednik). 


Składnia 
deftnicje-typów: 
type sekvencja-dejtnicji-typu 
dejinicja-typu: 
typ-dejitniowany = OptSs typu ; 
typ-dejintowany: 
tdentyftkator 
OpiSs-typu: 
opis-typu-standardowego 
optis-typu-dejiniowanego 
opis-typu-standardowego: 
tidentyjfjtkator-typu-standardowego 
opits-typu-definiowvanego: 
opis-typu-wyłiczentowego 
opis=typu=okro jonego 
opis typu-łańcuchowego 
opis-typu-tabl itcowego 
Oopis-typu-rekordovego 
Ooptis-typu-mnogościtowego 
opitis-typu-płl tkowego 
opis-typu-vskazu jącego 


Przykłady 
type 
Number = tnteger; 
Color = CKed,Green,Blue,Orange); 
RGB = Red. .Blue; 
Name = stringl2ż0l; 
Matrix = arrayl1i..5,1..5] of reał; 
Person = record 
FirstName : stringlól; 


LŁastName : Name; 
Sałary : real 
end; 


Digits = set of O0..9; 
DataFiłe = file of Person; 
Ref = Matrix; m 
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Deklaracje zmiennych 


Każda zmienna programu, zarówno prosta jak i złożona, 
musi być zadeklarowana przed jej użyciem. Deklaracje zmien-— 
nych składają się ze słowa kluczowego var, po którym nastę— 
puje wykaz deklaracji. Łlementem wykazu deklaracji jest 
sekwencja napisów składająca się z listy  1dentyfikatorów, 
znaku : Cdwukropek>, oznaczenia typu i znaku ;  €  srednik). 
źinterpretowanie każdej z deklaracji powoduje utworzenie 
zmiennych podanego typu. 


Składnia 
deklaracje-zmiennych: 
var sekwencja-deklaracji 
deklaracja: 


lista-identyjtkatorów : oznaczenie-typu ; 
Przykłady 
var 

Length, Area, Folume : real; 
Count : tnteger; 
Buffer : arrayl(0..255] of byte; 
Rejected : boolean; a 

zakresem deklaracji zmiennej jest blok, w którym 


zmienna ta została zadeklarowana. jesli blok ten zawiera inne 
bloki, w których występują deklaracje zmiennych oznaczone ta— 
kim samym identyfikatorem, to zasięg deklaracji jest mniejszy 
niż zakres i nie obejmuje bloków wewnętrznych, w których wys— 
tąpiły deklaracje przesłaniające. źakres deklaracji zmiennej 
rozpoczyna się nie od początku bloku, lecz od miejsca zade- 
klarowania jej identytikatora. 


Przykład. Zakres i zasięg deklaracji 


zakres zasięg 
program Iricky; 1 1 
var 1 1 
Togele : false!..true; 1 1 
false? : tnteger; 1 2 2 
begin 1 2 2 
false := 5; 1 2 2 
WritelnC(false)> 1 2 ż 
end. 


e zasięgiem predefiniowanego identyfikatora false jest 
jego zakres pomniejszony ©0o zakres jawnie zadeklarowanego 
identyfikatora false typu integer. 


Blok 25 


e Zakres i zasięg zadeklarowanego jawnie identyfikatora 
false jest taki sam. 

e Ponieważ wywołanie procedury Writeln występuje w zasięgu 
jawnie zadeklarowanego identyfikatora false, wykonanie 
programu powoduje wyprowadzenie liczby 5. |. 


Deklaracje it definicje podprogramów 


Podprogramy dzielą się na funkcje i procedury.  Defini- 
cja podprogramu określa czynności, jakie zostaną wykonane 
bezpośrednio po wywołaniu podprogramu. W przypadku funkcji 
określa również typ rezultatu funkcji udostępnionego w miejs— 
cu jej wywołania. 

Użycie deklaracji podprogramu jest niezbędne jedynie 
wówczas, gdy nie jest możliwe takie uporządkowanie definicji 
podprogramów, aby odwołania do podprogramów występowały w za- 
sięgu ich definicji. 


Przykład. Wzajemne wywołania procedur 
program jb; 


procedure second; forward; 
procedure first; 
begin 
second 
end; 
procedure second; 
begin 
first 
end; 
begin 


end. 


e Ponieważ w definicji procedury first 
procedure first; 
begin 
second 
end; 
występuje wywołanie procedury second, a w definicji procedu— 
ry second występuje wywołanie procedury first, konieczne było 


użycie deklaracji procedury second o postaci 
procedure second; forward; 
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e W odróżnieniu od definicji deklaracja służy jedynie za— 
prezentowaniu identyfikatora podprogramu, a jeśli podprogram 
ma parametry, to także jego parametrów. a 


5. WYKAZŻENIA 


Wyrażenia są napisami określającymi czynności, jakie 


mają być wykonane w celu uzyskania danej. Wykonanie tych 
czynności będzie nazywane opracowaniem wyrażenia. Ponieważ 
rezultatem opracowania wyrażenia jest dana, samo wyrażenie 


można uważać za napis reprezentujący daną. W niniejszym  roz— 
dziale zostaną opisane zasady opracowywania wyrażeń, których 
elementy składowe reprezentują dane typu integer, real, char 
i boołean. Opisy wyrażeń zawierających odwołania do danych 
typów definiowanych zostaną przedstawione podczas omawiania 
tych typów. 


5.1. OPERATORY 


Operatory dzielą się na jednoargumentove i  dwuargumen-— 
towe. Innym kryterium ich podziału jest pgriorytet. W kolej— 
ności malejącego priorytetu ogół operatorów można podzielić 


a> jednoargumentowy operator zmiany znaku 
b» jednoargumentowy operator negacji 
not 
c> dwuargumentowe operatory typu mnożenia 
* / div mod and shl shr 
d> dwuargumentowe operatory typu dodawania 
+ — or xor 
e> dwuargumentowe operatory relacyjne 
= (<> (4 > <= >sa= in 
Jeśli pewnego podwyrażenia dotyczą dwa operatory o rów” 
nym priorytecie, to stosowane operacje są wykonywane od lewej 
do prawej. Podwyrażenia ujęte w nawiasy okrągłe są opracowy— 
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wane w pierwszej kolejności. Z tego względu nawiasy okrągłe 
mogą być traktowane jak  jednoargumentowy operator o naj— 
wyższym priorytecie. 

Jeśli argumentami operacji typu mnożenia i dodawania są 
podwyrażenia reprezentujące dane typu integer lub real, to 
rezultat operacji jest typu integer tylko wtedy, gdy oba ar- 
gumenty są typu integer, a operacją nie jest dzielenie. W 
pozostałych przypadkach rezultat operacji jest typu reał. 


Przykład. Wyznaczanie danej reprezentowanej przez wyrażenie 
2 +3 „4 


e Ponieważ priorytet dzielenia jest wyższy niż priory— 
tet dodawania, przytoczone wyrażenie jest traktowane tak jak 
wyrażenie 

2 + (3 / 45) 
a nie jak wyrażenie 
(2 + 3) / 4 


e Rezultatem opracowania wyrażenia 3/4 jest dana typu 
real o wartości równej — w przybliżeniu — wartości  literału 
0.75 

e Przytoczone wyrażenie reprezentuje daną typu reał o 
wartości bliskiej wartości danej reprezentowanej przez  lite- 
rał 2.75 m 


5.2. OPERATOR ZMIANY ZNAKU 


Wykonanie jednoargumentowej operacji — (minus). powodu je 
zmianę znaku danej na przeciwny. jeśli dana ma wartość O, to 
rezultatem operacji jest także dana o wartości 0. Argumentami 
operacji — (minus) mogą być tylko dane typu reał i integer 
Przykłady 

wyrażenie Rezultat 
—C-4) 4 
-3/2 -1.5 m 


5.3. OPERATOR NEGACJI 


Wykonanie jednoargumentowej operacji not może dotyczyć 
jedynie danych typu boołean i integer. W pierwszym przypadku 
dana o wartości fałse zostanie przekształcona w daną 0 war—- 
tości true i odwrotnie. W drugim, każdy bit reprezentacji da— 
nej zostanie zmieniony na przeciwny. 
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Przykłady 
wyrażenie Rezultat 
not false true 
not true jalse 
not O —1 
not $FFFF 0 
not —2 1 
not —32768 32767 a 


5.4.  OPERATOKY TYPU MNOZENIA 


Dwuargumentowe operatory * (mnożenia i „ (dzielenia) 
mogą dotyczyć zarówno danych typu reał, jak i danych typu tin— 
teger. Dwuargumentowy operator and może dotyczyć zarówno da— 
nych typu boołean, jak 1 danych typu integer. Pozostałe 
operatory typu mnożenia mogą dotyczyć jedynie danych typu 
integer. Wymagania te zebrano w tabl. 5.1, w które j 
przytoczono także typ rezultatu operacji. 

Sposób wykonywania operacji * i „/ nie wymaga wyjaśnień. 
Należy jedynie pamiętać, że rezultatem dzielenia jest zawsze 
dana typu real. 


Tabl.5.1. Operatory typu mnożenia 


Argument—1 Argument-2 Rezultat 
- 


reał reał reał 
real integer reał 
integer reał real 
integer integer integer 
real reał real 
reał integer reał 
integer reał reał 
integer integer reał 
integer integer integer 
integer integer integer 
integer integer integer 
boolean boołean boolean 
integer integer integer 
integer integer integer 
Przykłady 

wyrażenie Rezultat 

25 * 40 1000 

25 * 40.0 1000. 0 

0.25 * 40.0 10.0 

24 / 3 8.0 


24.0 „ 3.0 8.0 a 
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Rezultatem operacji div jest dana typu integer, o tak 
dobranej wartości, że stanowi ona część całkowitą rezultatu 
podzielenia pierwszego argumentu przez drugi. Operacja mod 


jest natomiast zdefiniowana jako 
amodb = a — (Ca div b> * b) 


Przykłady 
wyrażenie Rezultat 
25 div r 3 
—25 div 7 —3 
25 mod 7 4 
—25 mod © -4 a 


Rezultatem operacji and na danych typu boolean jest ko— 
niunkcja tych argumentów wyznaczona jak następu je: 


argument a argument b a and b 
false false false 
true false false 
false true false 
true true true 


Rezultatem operacji and na danych typu  tnteger jest 
dana typu integer, której reprezentacja stanowi iloczyn logi— 
czny wyznaczony równolegle na wszystkich odpowiadających  so- 
bie parach bitów argumentów. Iloczyn logiczny dla pary bitów 
ma wartość 1 tylko wtedy, kiedy oba bity mają wartość 1. W 
przeciwnym razie ma on wartość O. 


Przykłady 
wyrażenie Rezultat 
false and true false 
2 and 2 2 
12 and 22 4 
-5 and O 0 s 


Dwuargumentowe operacje shl i shr mogą dotyczyć jedynie 
danych typu integer. Rezultatem każdej z tych operacji jest 
również dana typu integer. Dana Ła ma taką reprezentac ję, ja— 
ka powstaje z reprezentacji pierwszego argumentu po  przesu-— 
nięciu go w lewo C(shl> albo w prawo Cshr>, o taką liczbę  po— 
zycji, jaką określa wartość drugiego argumentu. Przyjmuje 
się, że przesuwanie ma charakter logiczny. Oznacza to, że 
podczas przesuwania bit znaku nie ulega powieleniu, a zwol- 
nione pozycje są zapełniane bitami O. 


Operatory typu dodawania 31 


Przykłady 
Wyrażenie Rezultat 
2 shl 1 4 
2 shl 3 16 
3 shr 1 1 
—3 shr 1 32766 m 


3.5. OPERATORY TYPU DODAWANIA 


Dwuargumentowe operatory + (dodawania> i —  (odejmowa— 
nia> mogą dotyczyć zarówno danych typu reał, jak i danych ty- 
pu integer. Pozostałe operatory typu dodawania mogą dotyczyć 
par argumentów identycznych typów: tinteger albo boołean. Wwy— 
magania te zebrano w tabl. 5.2, w której przytoczono także 
typ rezultatu operacji. 


Tabl.5.2. Operatory typu dodawania 


Argument-1i Argument—2 Rezultat 
+ 


real real reał 
reał integer reał 
integer real real 
integer integer integer 
real real real 
real integer real 
integer real real 
integer integer integer 
integer integer integer 
boołean boolean boolean 
integer integer integer 


boolean boolean boołean 


Sposób wykonywania operacji + i — nie wymaga wyjaśnień. 
Należy jedynie pamiętać, że rezultat operacji jest typu inte-— 
ger tylko wtedy, kiedy oba argumenty są tego typu. Ww przeciw— 
nym razie rezultat operacji jest typu real. 


Przykłady 
Wyrażenie Rezultat 
20 + 40 60 
20.0 + 40 60.0 
60.0 — 40.060 20.0 m 


Rezultatem operacji or na danych typu boolean jest al- 
tŁernatywa tych argumentów, wyznaczona jak następuje: 
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argument a argument bv a or bv 
false false false 
true false true 
false true true 
true true true 


Rezultatem operacji or na danych typu tnteger jest dana 
Łypu integer, której reprezentacja stanowi sumę logiczną 
wyznaczoną równolegle na wszystkich odpowiadających sobie pa— 
rach bitów argumentów. Suma logiczna dla pary bitów ma war— 
tość 0 tylko wtedy, gdy oba bity mają wartość 0. W przeciwnym 
razie ma wartość 1. 


Przykłady 
Wyrażenie Rezultat 
false or true true 
2w0r 3 3 
12 or 22 30 
58000 or 1 -32767 m 


Rezultatem operacji xor na danych typu boołean jest 
różnica symetryczna tych argumentów, wyznaczona jak następu— 
je: 


argument a argument b a xor bv 
false false false 
true false true 
false true true 
true true false 


Rezultatem wykonania operacji xor na danych typu  tinte- 
ger jest dana typu integer, której reprezentacja stanowi sumę 
modulo 2 wyznaczoną równolegle na wszystkich odpowiadających 
sobie parach bitów argumentów. Suma modulo 2 ma wartość 0 
tylko wtedy, gdy oba bity są identyczne. W przeciwnym razie 
ma wartość 1. 


Przykłady 
Wyrażenie Rezultat 
true xor true false 
58000 xor 2 —32766 
12 xor 22 PA) 


—1 xor —1 [0 a 
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5.6. RELACJE 


Operatory relacji mogą dotyczyć dowolnych danych typu 
integer, boolean, real i char. Rezultatem operacji jest zaw- 
Nze dana typu boołean, o wartości fałse albo true. jeśli  pe— 
wien argument relacji jest typu boołean albo char, to drugi 
musi być takiego samego typu. W przypadku argumentów arytme— 
tycznych nie wymaga się zgodności typów. Umożliwia to np. po- 
równywanie argumentów typu reał z argumentami typu tnteger. 

Operatorami relacji są: = (równe), <> (nie równe)», > 
(większe), < (mniejsze), >= (większe lub równe), <= (mniej- 
sze lub równe). 


Przykłady 
Wyrażenie Rezultat 
20 = 20 true 
30.0 > 20 true 
*J” < ”B” false 
false <> true true m 


5.7. WYWOŁANIA FUNKCJI 


Wyvołanie funkcji składa się z identyfikatora funkcji, 
bezpośrednio po którym występuje ujęta w nawiasy okrągłe lis-— 
ta argumentów wywołania. wywołanie funkcji bezparametrowe j 
składa się tylko z identyfikatora funkcji. 


Przykłady 
£ŁofCInput 2 
KeyPressed a 


6. INSTRUKCJE 


Instrukcja programu stanowi opis czynności, które będą 
wykonane podczas realizowania algorytmu. W Turbo Pascalu ist— 
nieją dwa rodzaje instrukcji: proste i strukturalne. Instruk— 
cjami prostymi są: instrukcja przypisania, instrukcja wywoła— 
nia procedury, instrukcja przejścia i instrukcja pusta. Ins— 
trukcjami strukturalnymi są: instrukcja grupująca, instrukc ja 
warunkowa, instrukcja wyboru oraz trzy instrukcje iteracy jne. 


6.1. INSTRUKCJA PRZYPISANIA 


Instrukcja przypisania składa się z następujących po 
sobie: napisu identyfikującego zmienną, symbolu przypisania i 
wyrażenia. W obrębie definicji funkcji musi wystąpić co naj— 
mniej jedna instrukcja przypisania, w której napisem  identy— 
fikującym zmienną jest identyfikator funkcji. 

Wykonanie instrukcji przypisania powoduje wyznaczenie 
danej reprezentowanej przez wyrażenie i przypisanie tej danej 
zmiennej identyfikowanej przez napis występujący po lewej 
stronie symbolu przypisania. W przypadku omówionego wyżej 
przypisania występującego w obrębie definicji funkcji nastę— 
puje określenie rezultatu funkcji, tj. danej udostępnianej w 
miejscu wywołania funkcji. 

Wymaga się, aby typ wyrażenia oraz typ zmiennej były 
zgodne w sensie przypisania. Zgodność a jest zapewniona 
wtedy, kiedy zmienna i wyrażenie są tego Samego typu, jak 
również wówczas, gdy zmienna jest typu reał, a wyrażenie typu 
integer. Należy nadmienić, że nie jest dozwolone przypisywa- 
nie plików, ale jest dozwolone przypisywanie takich danych 
strukturalnych jak tablice, rekordy i mnogości. 
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Składnia 
instrukcja-przypisania: 
zmienna := vyrażenie 


Przykłady 
1 = TT +2 
x1 := (-—b + sąartbD * b - 4 * a * CDD / (2 * 0) 
arrlt2,3)] := m=n 
fun := false u 


6.2. INSTRUKCJA WYWOŁANIA PROCEDURY 


Instrukcja wywołania procedury składa się z identyfika— 
tora procedury, bezpośrednio po którym następuje ujęta w 
nawiasy okrągłe lista argumentów wywołania. Instrukcja wywo- 
łania procedury bezparametrowej składa się tylko z identyfi— 
katora procedury. 

Wykonanie instrukcji wywołania procedury powoduje wy- 
konanie czynności wyszczególnionych w definicji tej procedu— 
ry. Zanim to nastąpi, odbywa się identyfikacja zmiennych sta— 
nowiących argumenty wywołania procedury i wyznaczenie wartoŚś— 
ci wyrażeń występujących w wywołaniu. 


Składnia 
instrukc ja-wywołania-procedury: 
nazwa-procedury ( lista-argumentów 
nazua-procedury 
nazwa-procedury: 
identyfikator 


Przykłady 
Revrite(O0utFile) 
Move source, target. 
Exit a 


6.3. INSTRUKCJA PRZEJŚCIA 


Instrukcja przejścia składa się ze słowa kluczowego 
goto, bezpośrednio po którym następuje odwołanie do etykiety 
opatrującej instrukc ję. 

Wykonanie instrukcji przejścia powoduje przejście do 
wykonywania ciągu instrukcji rozpoczynającego się od instruk— 
cji opatrzonej etykietą. Wymaga to, aby instrukcja przejścia 
powołująca się na etykietę znajdowała się w zasięgu deklara— 
cji tej etykiety. Zabrania się, aby wykonanie instrukcji 
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przejścia prowadziło do wnętrza instrukcji strukturalnej albo 
podprogramu. Zabrania się także, by wykonanie takiej ins— 
trukcji powodowało przedwczesne zakończenie wykonywania  pod— 
programu. 


Składnia 
instrukcja-przejścia: 
goto etykieta 
etykieta: 
identyfikator 


Przykłady 
goto 345 
goto finish 8 


6.4. INSTRUKCJA PUSTA 


Instrukcja pusta jest jedyną instrukcją, której zapi— 
sanie nie wymaga użycia symboli języka. Występuje ona w tych 
kontekstach, w których jest wymagane użycie instrukcji, ale 
chce się uniknąć wykonania jakiejkolwiek akcji. 

Wykonanie instrukcji pustej nie wywołuje żadnych  skut— 


ków. 
Składnia 
instrukcja-pusta: 
puste 
puste: 


Przykłady €miejsce wystąpienia instrukcji pustej oznaczono 
komentarzem zawierającym wykrzyknik) 

begin ( ! » end 

while false do ( ! 3; 


repeat «€ ! > until true 
begin ( ! > ; £ ? »> end 
case true of false: ( ! >» ; true: (£ ! +» end m 


6.5. INSTRUKCJA GRUPUJĄCA 


Instrukcja grupująca” składa się ze słowa kluczowego 
begin, bezpośrednio po którym następuje sekwencja instrukcji 
i słowo kluczowe end. Instrukcja grupująca jest używana wszę— 


*Instrukc ja grupująca jest w wielu książkach nazywana instru— 
kcją złożoną, mimo iż jest tó jedna z najprostszych  instruk— 
cji języka 
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dzie tam, gdzie składnia języka wymaga użycia jedne j 
instrukcji, a niezbędne jest wykonanie sekwencji instrukcji. 
Wykonanie instrukcji grupującej powoduje wykonanie za- 
wartej w niej sekwencji instrukcji. 
składnia 
tnstrukcja-grupu jąca: 
begin sekvencja-instrukcji end 


Przykłady 
begin 
i :=*2; J :=2 
end 
begin 
WritelnCOutFile); 
Cłose(OutFileD) 
end m 


6.6. INSTRUKCJA WARUNKOWA 


Instrukcja warunkowa składa się ze słowa kluczowego if, 
bezpośrednio po którym następuje wyrażenie logiczne, słowo 
kluczowe then i instrukcja. Po instrukcji może występować 
słowo kluczowe else i ponownie instrukc ja. 

Wykonanie instrukcji warunkowej składa się z wyznacze— 
nia wartości wyrażenia, a następnie, jeśli rezultat jest daną 
oc wartości true, wykonania instrukcji następującej po Słowie 
kluczowym then. Jeśli rezultat jest daną o wartości false, a 
instrukcja warunkowa nie zawiera słowa kluczowego else, to 
jej wykonanie uznaje się za zakończone. jeśli zawiera takie 
słowo, Ło jest wykonywana instrukcja występująca po tym 
słowie. 

Jeśli instrukcja zawarta w instrukcji warunkowej jest 
także instrukcją warunkową, to może ona wystąpić przed słowem 
kluczowym else ale tylko wtedy, gdy także zawiera to słowo. 


Składnia 
instrukcja-uarunkowa: 
if wyrażenie-logiczne then instrukcja 
if vyrażenie-logiczne then instrukcja 
else instrukcja 


Przykłady 


if b then a := 5 else b» := 5 


a 
Il 


jni 
a) 
jaj 
Il 


b then begin 


Instrukcje 38 


a := 6; 
b :=6 
end 
if a = b then 
if a = 5 then 
b: 2 
else 
a :=3 
else 
a := 13 w 


6.7. INSTRUKCJA WYBORU 


Instrukcja wyboru składa się ze słowa kluczowego case, 
bezpośrednio po którym występuje wyrażenie selekcyjne, słowo 
kluczowe ef, sekwencja instrukcji wyboru poprzedzonych ety— 
kietami wyboru, a po niej słowo kluczowe end. 

Etykieta wyboru składa się z listy literałów, po której 
następuje symbol : (dwukropek. Każdy z literałów tej listy 
musi być tego samego typu jak wyrażenie selekcy jne. Jeśli pe— 
wna podlista listy literałów stanowi ciąg kolejnych elementów 
typu porządkowego, to może być zastąpiona konstrukc ją 

pierwszy. .ostatni 
wyszczególniającą pierwszy i ostatni element Lego ciągu. Ła— 
miast etykiet wyboru poprzedzających ostatnią instrukcję se—- 
kwencji instrukcji wyboru może być użyte słowo kluczowe else. 
Po takiej 
Składnia 
instrukcja-wyboru: 
case vyrażenie-selekcyjne of 


etykiecie" nie stawia się dwukropka. 


sekvencja-instrukcji-wyboru end 

Wykonanie instrukcji wyboru składa się z wyznaczenia 
wartości wyrażenia selekcyjnego, a następnie wykonania tej 
instrukcji należącej do sekwencji instrukcji wyboru, która 
jest poprze* dzona etykietą wyboru o wartości równej wartości 
wyrażenia selekcyjnego. Jeśli takiej instrukcji nie ma, Ło 
jest wykony— wana instrukcja poprzedzona 'etykietą' wyboru ze 
słowem kluczowym else, a jeśli i takiej nie ma, to jest 
wykonywana instrukcja pusta. 


Przykłady 
case a = b of 
jałse: it := 5; 
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true: J :=2 
end 


case Operator of 
+”: Result := Result + 1; 
*—?: Result := Result — i; 
else goto fin 


end 


case Year of 
1945..1955 : WritelnC hard vork*”>; 
1956. .1969 : WritelnC Rkopes'D); 
1970..1979 : Writeln( prosperity D; 
1980..1981 : WritelnC'euphoria"D>; 
else Writeln('no comment” 
end a 


6.8. INSTRUKCJE ITERACYJNE 


Instrukcje iteracyjne służą do organizowania cykli pro— 
gramowych. Występują one w trzech odmianach, jako tzw. ins— 
trukcje for, while i repeat. 


Instrukcja for 


Instrukcja for składa się ze słowa kluczowego for, 
bezpośrednio po którym następuje identyfikator zmiennej ste— 
rującej cyklu, symbol przypisania, wyrażenie określające war— 
tość początkową zmiennej sterującej, słowo kluczowe to albo 
downto, wyrażenie określające wartość końcową zmiennej steru— 
Jącej, słowo kluczowe do oraz dowolna instrukcja. 

Zmienna sterująca cyklu oraz oba wyrażenia muszą być 
tego samego typu porządkowego. 


Składnia 
instrukcja-for: 
for zmienna := wyrażenie, to wyrażenie. do instrukc ja- 


for zmienna := wyrażenie, downto wyrażenie. do instrukcja 


Wykonanie instrukcji for powoduje wykonywanie zawartej w 
niej instrukcji dla tych wszystkich wartości zmiennej steru— 
jącej, które są zawarte w przedziale domkniętym wyznaczonym 
przez wartości vyrażenia i wyrażenia, . 

Jeśli w instrukcji for wystąpiło słowo kluczowe to, to 
zmienna sterująca przybiera wartości od najmniejszej do naj— 
większej. Jeśli natomiast wystąpiło słowo kluczowe downto, to 
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przybiera ona wartości od największej do najmniejszej. Jeśli 
w pierwszym z tych dwóch przypadków prawdziwa jest relacja 
wyrażenie, > wyrażenie. 
albo gdy w drugim jest prawdziwa relacja 
vyrażenie_ < wyrażenie, 
to cykl wyznaczony przez instrukcję for nie jest wykonywany w 
ogóle. W Łakim przypadku wykonanie instrukcji for ogranicza 
się do wyznaczenia wartości obu wymienionych wyrażeń. 

w pozostałych przypadkach cykl jest wykonywany co naj— 
mniej jednokrotnie, a po jego zakończeniu zmienna sterująca 
cyklu ma wartość vyrażenia,. 

Pozostaje nadmienić, że wyznaczenie wartości omawianych 
wyrażeń jest jednokrotne, a jawne przypisywanie danych zmien— 
nej sterującej cyklu jest zabronione. 


Przykłady 
for i := 2 to 8 do Writeln(t) 


for j := 8 downto 2 do Writelłn(Cj) 


for toggle := false to true do 
for letter := "t” to ”n" do 
arrltoggle,letter] := 2 m 


Instrukcja uvhile 


Instrukcja while składa się ze słowa kluczowego while, 
bezpośrednio po którym następuje wyrażenie typu  boołean, 
słowo kluczowe do oraz dowolna instrukcja. 


Składnia 
instrukcja-while: 
while wyrażenie do instrukcja 


Wykonanie instrukcji while przebiega według poniższego 
algorytmu: 

1. Wyznaczana jest wartość wyrażenia. 

2. Jeśli wartością tą jest false, to wykonanie instruk— 
cji uznaje się za zakończone. 

3. Jeśli wartością tą jest true, to jest wykonywana 
instrukcja następująca po słowie kluczowym do, a po tym 
następuje powtórzenie opisanych czynności od początku. 


Przykłady 
while it <> O do begin 
1 := 4 — 1; 
WritelnCiD 


end 
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while Flag do FunCFlag> m 


Instrukcja repeat 


Instrukcja repeat składa się ze słowa kluczowego 
repeat, bezpośrednio po którym następują: dowolna instrukcja, 
słowo kluczowe until i wyrażenie typu boolean. 


Składnia 
instrukc ja-repeat: 
repeat instrukcje until wyrażenie 


Wykonanie instrukcji repeat przebiega według poniższego 
algorytmu: 

1. Wykonywane są instrukcje następujące po słowie klu-— 
czowym repeat. 

2. Wyznaczana jest wartość wyrażenia występującego po 
słowie kluczowym until. 

3. Jeśli wartością tą jest true, to wykonanie  instruk— 
cji uznaje się za zakończone. 

4. jeśli wartością tą jest false, to następuje powtó- 
rzenie opisanych czynności od początku. 


Przykłady 
repeat 
WritelnCiD); 
1 5 t£- 1 


until 2 =0 


repeat until AeyPressed m 


7. TYPY WYLICZENIOWE I OKROJONE 


Podstawowymi typami danych w Turbo Pascalu są tłypy Ska- 
łarne, a wśród nich typy porządkowe. Każdy z typów porządko— 
wych ma tę właściwość, że definiujący go zbiór jest przeli-— 
czalny. Należy odnotować, że typ real, mimo iż jest typem 
skalarnym, nie jest typem porządkowym. To właśnie jest  przy— 
czyną, dla której wyrażenie selekcyjne instrukcji wyboru, 
etykiety instrukcji wyboru oraz zmienne sterujące i wyrażenia 
występujące w instrukcji for nie mogą być typu real. 


7.1. TYPY WYLICZENIOWE 


Typy vwyłitczeniove stanowią ważną odmianę typów porząd— 
kowych. Pozostają one w związku ze zbiorami o niewielkiej li— 
czbie elementów, na których nie wykonuje się operacji arytme— 
tycznych. Poszczególne elementy tych zbiorów są oznaczane 
unikalnymi identyfikatorami, a ich uporządkowanie wynika z 
kolejności wystąpienia tych identyfikatorów w opisie typu 
wyliczeniowego. 

Opis typu wyłiczeniowego składa się z listy identyfika— 
torów elementów tego typu, ujętej w nawiasy okrągłe. Każdy z 
takich identyfikatorów pełni rolę literału danego typu. Ko- 
lejność wystąpienia identyfikatorów na liście jest istotna. 


Sktadnia 
opis-typu-vyłiczeniowego: 
« Łłista-identyfikatorów D) 


Przykłady 


type 
Day = (Mon,Tue,Wed,Thu,Fri, Sat , Sun); 
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Cołor = CHeart , Diamond, Spade,Cłub); 
RGB = CRed,Green,Błue); 


e Dane Łypu Day są identyfikowane przez trzyliterowe 
nazwy symboliczne oznaczające dni tygodnia. 

e Dane typu Color są identyfikowane przez nazwy Symbo— 
liczne Heart, Diamond, Spade i Club. 

e Dane typu KGB są identyfikowane przez nazwy Ssymboli— 
czne Red, Green i Błue. m 


W zasięgu opisu typu wyliczeniowego nie jest dozwolone 
użycie innego opisu typu wyliczeniowego, powołującego się na 
literały występujące w pierwszym z tych opisów. Ograniczenie 
to nie dotyczy jednak predefiniowanego typu wyliczeniowego 
boolean, skąd wynika, że jest dozwolone posłużenie się np. 
opisem typu (Cfalse,true). 


Przykład 
type 
Day = (Mon, Tue, Wed,Tku, Fri, Sat ,Sun); 
WeekEnd = (Sat, Sun); 
e Przytoczony zestaw definicji typu jest niepoprawny, 
ponieważ przecięcie list literałów typów Day i WeekEnd nie 
jest puste. m 


Ponieważ typy wyliczeniowe są związane ze zbiorami 
przeliczalnymi, każdemu elementowi takiego zbioru można przy— 
pisać liczbę nieujemną, określającą miejsce elementu na liś— 
cie identyfikatorów typu wyliczeniowego. W tym sensie dla 
definicji 

type 

Direction = CNorth,South,East „West 

można przypisać identyfikatorowi North liczbę 0, identyfika— 
torowi South liczbę 1, identyfikatorowi East liczbę 2 i iden— 
tyfikatorowi Wesł liczbę 3. Dane o wartości tych liczb można 
uzyskać posługując się predefiniowaną funkcją ord. Argumentem 
tej funkcji jest wyrażenie reprezentujące daną typu wylicze— 
niowego, a rezultatem — nieujemna dana typu integer, której 
wartość określa liczony od 0 numer pozycji danej w zawierają— 
cym ją zbiorze uporządkowanym. 

Dwiema innymi funkcjami, które mogą dotyczyć danych ty- 
pu wyliczeniowego, są pred i succ. Argumentem funkcji pred 
może być dowolne wyrażenie typu wyliczeniowego, reprezentu ją 
ce daną zbioru uporządkowanego. Rezultatem tej funkcji jest 
ta dana tego zbioru, która bezpośrednio poprzedza daną repre— 
zentowaną przez argument. Zabrania się, aby argument funkcji 
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pred reprezentował pierwszą daną zbioru, jako że ten element 
nie ma poprzednika. 

Analogiczną do pred jest funkcja succ. Jej argumentem 
może być także dowolne wyrażenie typu wyliczeniowego,  repre— 
zentujące daną zbioru uporządkowanego. Rezultatem funkcji 
succ jest Ła dana tego zbioru, która bepośrednio następuje po 
danej reprezentowanej przez argument. Zabrania się, aby ar- 
gument funkcji succ reprezentował ostatnią daną zbioru, jako 
że ten element nie ma następnika. 

Argumentami funkcji ord, pred i Ssucc mogą być także wy-— 
rażenia reprezentujące dane typu tnteger i byłe. W takim 
przypadku przyjmuje się, że jeśli użycie funkcji jest popraw 
ne, to obowiązują tożsamości 

ord(n> z n 

pred(n = n-1 

SUCCĆCN)D 2 n +1 


Przykłady. W zasięgu definicji predefiniowanego typu boolean 
oraz zdefiniowanego jawnie typu Cołor 
type 
Gołor = CHeart,Diamond, Spade,Cłub); 
prawdziwe jest następu jące zestawienie 


Wyrażenie Rezultat 

ordC( false) 0 

predćtrue) jalse 

ordćClub) 3 

succC Diamond) Spade m 


4.2. TYPY OKROJONE 


Typy okrojone stanowią drugą po typach wyliczeniowych 
odmianę typów porządkowych. Pozostają one w związku ze 
zbiorami tych elementów wybranego zbioru uporządkowanego, 
których liczby porządkowe uzyskane za pomocą funkcji ord two- 
rzą ciąg arytmetyczny o różnicy 1. Typ okrojony zachowuje 
wszystkie właściwości swego typu macierzystego, z tym tylko 
wyjątkiem, że dane typu okrojonego muszą należeć do podzbioru 
stanowiącego okrojenie typu macierzystego. 

Opis typu okrojonego składa się z literału stanowiącego 
ograniczenie dolne zakresu typu okrojonego, Symbolu .. (para 
kropek> oraz literału stanowiącego ograniczenie górne zakre— 
su. Wymaga się, aby zakres wyznaczony przez wymienione tu li-— 
terały nie był pusty. 
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Składnia 
opits-typu-okro jonego: 
ogranticzenie-dolne .. ograniczenie-górne 
ograniczenie: 
łiterał 
nazwa-literału 


Przykłady 
type 
Quadrant = 0..90; 
Upper = A..Z; 
Łogicał = false..true; 


Colour = CRed,Blue,Green, Yel lLov, Orange); 
Hue = Blue. .Yellov; 


e Elementy zbioru danych typu Quadrant są  reprezento— 
wane przez liczby typu integer z przedziału od O do 90 włącz- 
nie. 

e Elementy zbioru danych typu Upper są reprezentowane 
przez literały typu char z przedziału od ”A do "Z. 

e Elementy zbioru danych typu Łogicał są reprezentowane 
przez literały fałse i true, oba typu boołean. 

e Elementy zbioru danych typu Hue są reprezentowane 
przez literały wyliczeniowe Blue, Green i Yellow, wszystkie 
typu Colour. | 


Pozostaje nadmienić, że predefiniowany typ byte jest (z 
pewnymi ograniczeniami)” typem okrojonym typu integer, tj. że 
obowiązuje dla niego niejawna definicja 

type 

byte = 0..255; 

w odniesieniu do danych typów okrojonych mogą być także 
stosowane funkcje ord, pred i Ssucc. Wyznaczanie rezultatów 
tych funkcji odbywa się wówczas w typie macierzystym. 


Przykłady. W zasięgu definicji typu Hue 
type 
Colour = CRed,Blue,Green, Yellouv,Orange); 
Hue = Blue. .Tellov; 
prawdziwe jest następujące zestawienie: 


Wyrażenie Kezultat 

ordCBlue) 1 

succ(Yeł lov) Orange 

predCYel lov) Green a 


Należy zdecydowanie podkreślić, że posługiwanie się ty- 
pami wyliczeniowymi i okrojonymi zwiększa czytelność  progra— 
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mów, a ponadto ułatwia ich uruchamianie, jako że umożliwia 
automatyczne wykonywanie badań poprawności zakresu wartości 
danych. Nie bez znaczenia jest także fakt, że posługiwanie 
się danymi wymienionych typów prowadzi do oszczędności pamię— 
ci. Wynika to stąd, że jeśli liczba elementów zbioru macie— 
rzystego związanego z typem danej nie przekracza 255, to Tur— 
bo Pascal reprezentuje daną w zaledwie jednym bajcie pamięci. 
Równie oszczędna reprezentacja jest przyjmowana także w od- 
niesieniu do typów okrojonych z typem macierzystym  tnteger, 
jeśli oba ograniczenia zakresu mieszczą się w przedziale dom— 
kniętym [0,255]. 


/.3.  KONWEKSJE TYPOW 


w języku Turbo Pascal rozwinięto koncepcję funkcji ord, 
dokonującej konwersji danej dowolnego typu porządkowego w da— 
ną typu tinteger. Wprowadzono mianowicie rodzinę operatorów 
jednoparametrowych, o nazwach identycznych z nazwami typów 
porządkowych, umożliwiających wykonywanie konwersji danych 
między dowolnymi typami porządkowymi. 

Operator konwersji ma postać opr(larg>, gdzie opr jest 
identyfikatorem typu porządkowego, arg zaś jest dowolnym 
wyrażeniem porządkowym. Rezultatem takiej operacji jest dana 
typu opr, tak dobrana, że prawdziwa jest relacja ordća»> = 
= ord(opr(a)). 


Przykłady. W zasięgu definicji predefiniowanych typów porząd— 
kowych oraz zdefiniowanego jawnie typu Color 
type 
Cołor = CHeart „Diamond, Spade,Cłub); 
prawdziwe jest następujące zestawienie: 


wyrażenie Rezultat. 

integer(Club) 3 

Colorc2). Spade 

char«ó5) "A 

integer A") 65 

boolean(CHeart > jatse 

byte(Ctrue) 1 m 


7.4. KONTROLA POPRAWNOŚCI ZAKRESU 


Jedną z właściwości kompilatora  jężyka Turbo Pascal 
Jest możliwość takiego skompilowania programu źródłowego, aby 
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podczas jego wykonywania były przeprowadzane kontrole popra— 
wności zakresu danych skalarnych. Ponieważ kontrole takie 
mpowalniają wykonywanie programu, są wstępnie wyłączone i mo- 
gą być włączane za pomocą dyrektywy ($R+)>. W tych zakresach 
programu źródłowego, w których kontrole są zbędne, można je 
wyłączyć, posługując się dyrektywą 4$R-) . 


Przykład. Włączanie i wyłączanie kontroli zakresów danych 
program Check; 


type 
Figure = CSquare,Circle,Diamond,Triangle); 
var 
Shape : Figure; 
begin 
Shape := Circle; 
Shape := Figure(4); 
<8R+> 
Shape := succ(Triangie); 
<$R>> 
Shape := pred(Square) 
end. 


e Kontrola poprawności zakresu jest włączona jedynie na 
czas wykonywania instrukcji przypisania zawartej między dyre- 
ktŁywami kompilacji. 

e Gdyby z programu usunąć dyrektywy kompilacji, to zos= 
tałby on wykonany bez sygnalizowania błędów. 

e Wykonanie programu w podanej postaci spowoduje zasy— 
gnalizowanie błędu przekroczenia zakresu danych. Stanie się 
to podczas wyznaczania rezultatu funkcji succ. a 


8. TYPY ŁANCUCHOWE 


Każdy z typów łańcuchowych jest typem złożonym. Podczas 
definiowania typu  łańcuchowego jest określana maksymalna 
liczba znaków, z których może składać się dana łańcuchowa 
tego Łypu. Z każdym typem łańcuchowym jest związany zbiór 
ciągów znaków. Należy do niego pusty ciąg znaków oraz ciągi o 
długości nie przekraczającej maksymalnej liczby znaków. 

Opis typu łańcuchowego Składa się ze słowa kluczowego 
string, bezpośrednio po którym następuje zawarta w nawiasach 
kwadratowych maksymalna liczba znaków łańcucha danego typu. 
Liczba tŁa może być wyrażona za pomocą literału typu integer 
albo za pomocą równoważnej takiemu literałowi nazwy literału. 


Składnia 
opis-typu-łańcuchowego: 
string [ rozmiar |) 
rozmiar: 
literaż 
nazwa-lłiterału 


Przykłady 
type 
Cities = stringl20]; 
Names = stringl1i2]; a 


Każda z danych typu łańcuchowego zajmuje o jeden wię-— 
cej bajtów pamięci niż wynosi maksymalna liczba znaków łańcu— 
cha danego typu. W tym dodatkowym bajcie jest przechowywany 
bieżący rozmiar łańcucha. Ź tej informacji wynika, że maksy- 
malny rozmiar łańcucha nie może przekroczyć 255 znaków. 
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8.1.  ZŁĄCZENIA ŁANCUCHÓW 


złączenie pary łańcuchów w jeden łańcuch może być  zre— 
alizowane za pomocą operatora konkatenacji. Operator ten jest 
zapisywany za pomocą znaku + (plus) i może dotyczyć pary wy- 
rażeń łańcuchowych dowolnych typów. Złączenie pary łańcuchów 
jest łańcuchem składającym się z wszystkich znaków  pierwsze— 
go łańcucha i następujących po nich wszystkich znaków drugie— 
go łańcucha. Wymaga się, aby rozmiar łańcucha, który jest 
rezultatem złączenia, nie przekroczył 255 znaków. 


Przykłady 

wyrażenie Rezultat 

”jan” + ewa” > janeva” 

>5> + >.>» + >4” 5.4? 

"3" + > » + >b” > jb” 
(w ostatnim przykładzie wystąpił  literał łańcuchowy  repre— 
zentujący pusty ciąg znaków) m 


8.2. RELACJE 


Dowolne pary łańcuchów mogą być porównywane za pomocą 
operatorów relacji. Operatorami relacji są: = (równe, ©> 
(nie równe), 4 (mniejsze), > (większe), <= (mniejsze lub rów- 
ne»), >= (większe lub równe». Priorytet każdego z operatorów 
relacji jest niższy niż priorytet operatora złączenia. 
Umożliwia to konstruowanie wyrażeń takich jak np. "jan = *;” 
+ an” bez konieczności posługiwania się nawiasami. 

Dwa łańcuchy są równe tylko wówczas, gdy są takiej sa- 
mej długości oraz gdy składają się z identycznych znaków. 
Jeśli nie są równe, to relacja dotycząca łańcuchów zostaje 
zastąpiona relacją pierwszej pary odpowiadających sobie, ale 
różnych znaków. Jeśli para taka nie zostanie znaleziona, 
ponieważ początkowym fragmentem jednego z łańcuchów jest dru-— 
gi łańcuch, to za mniejszy zostanie uznany ten łańcuch, który 
jest krótszy. 


Przykłady 
wyrażenie Rezultat 
"A > ”B” false 
"jan > "Jan" true 
>> << char(CO) true 


>> = > true 
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Jan” <= "Jane" true 
>2509> << ?270> true a 


8.3. PRZYPISANIA 


Przypisania łańcuchóv zmiennym łańcuchowym mogą być re-— 
alizowane za pomocą instrukcji przypisania. Z prawej strony 
symbolu przypisania może występować dowolne wyrażenie  łańcu— 
chowe, z lewej natomiast — nazwa zmiennej łańcuchowe j. Jeśli 
długość łańcucha reprezentowanego przez wyrażenie przekracza 
maksymalny rozmiar łańcucha, który może być reprezentowany w 
zmiennej, to przypisanie odbywa się od lewej do prawej z 
pominięciem znaków nadmiarowych. 


Przykład 
type 
Name : stringl7]; 
var 
FirstName,LastName : Name; 


FirstName := "Jan"; 
LastName := "Bielecki"; 


e Zmiennej FirstName zostanie przypisana dana łańcucho— 
wa o wartości literału "Jan. 

e Zmiennej łańcuchowej ŁastName zostanie przypisana da— 
na łańcuchowa o wartości literału "Bieleck'. u 


8.4.  PODPROGRAMY 


Rozszerzeniem zbioru operacji łańcuchowych są funkcje i 
podprogramy łańcuchowe. Ich użycie znakomicie ułatwia prze- 
twarzanie danych łańcuchowych. 


Funkcja Length 


Wywołanie: Łength(Stro 

Przyjmuje się, że Str jest wyrażeniem łańcuchowym  re— 
prezentującym ciąg znaków. 

Rezultatem funkcji Łength jest dana typu integer o war- 
tości określającej liczbę znaków tego ciągu. 
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Przykłady 
wyrażenie Rezultat 
LengthC' jb”> 2 
Lengthć”"""> 1 
Lengthć”"”> (0 | 


Procedura Str 


Wywołanie: StrCVFal „Var 

Przyjmuje się, że Val jest wyrażeniem arytmetycznym, a 
Var jest nazwą zmiennej łańcuchowej. 

Wykonanie procedury Str powoduje przekształcenie danej 
reprezentowanej przez wyrażenie Val w ciąg znakowy mający po” 


stać literału o wartości tej danej. Następnie ciąg ten 
zostanie przekształcony w daną łańcuchową i przypisany zmien— 
nej Var. 


Jeśli wyrażenie Val jest typu integer, to przyjmuje 
się, że literał ma postać liczby całkowitej o minimalnej |li- 
czbie cyfr. 

Jeśli bezpośrednio po wyrażeniu Vał występuje kwalifi-— 
kator o postaci :m, w którym m jest wyrażeniem typu integer, 
Ło określa on długość ciągu znaków, na który zostanie prze- 
kształcona dana reprezentowana przez FHał. W ciągu takim 
wymieniony wyżej literał jest wyrównany prawostronnie. Jeśli 
literał nie da się przedstawić za pomocą m znaków, to m 
zostanie niejawnie zwiększone o tyle, aby było to wykonalne. 


Przykłady (przyjęto, że StrVar jest typu strineg[4]1D 


Wywołanie ciąg StrVar 
Str<45,StrVar) 45 45 
SŁr<-250,StrVar> —-250 *-250? 
Strc45:3,StrVar> b45 * 45 
StrC45:5,StrVar> bbb45 K 4” 
Str<-2:5,StrVar> bbb-2 > — u 


Jeśli wyrażenie Fał jest typu reał, to przyjmuje się, 

że ciąg wzorcowy zawierający literał ma postać 
bsd. ddddddddddkEsdd 

w której b jest spacją, s jest znakiem mantysy lub wykładni— 
ka, a d jest cyfrą. Znak mantysy jest reprezentowany za 
pomocą spacji lub znaku — (minus>, a znak wykładnika jest re— 
prezentowany za pomocą znaku + (plus) albo — (minus). 

Jeśli bezpośrednio po wyrażeniu Vał występuje kwalifi- 
kator o postaci :m, w którym m jest wyrażeniem typu integer, 
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to określa on długość ciągu znaków, na który zostanie prze— 
kształcona dana reprezentowana przez Fal. W ciągu takim wy-— 
mieniony wyżej |literał zostanie wyrównany prawostronnie. 
Jeśli literał nie da się przedstawić za pomocą m znaków, to z 
wymienionego wyżej ciągu wzorcowego zostaną w pierwszej 
kolejności usunięte spacje wiodące, a jeśli i to nie po- 
skutkuje, Ło zostanie odpowiednio zmniejszona liczba cyfr 
mantysy, ale nie mniej niż do 2 cyfr. W przypadku redukowania 
liczby cyfr mantysy będzie stosowane zaokrąglanie. 


Przykłady (przyjęto, że Exp ma wartość 45.678E1, StrVar zaś 
jest typu stringl10]1) 


Wywołanie Ciąg StrVar 
StrCExp:9,StrVar> 4. 568E+02 ”4.568E+02 > 
Str<Exp:8,StrvVar> 4.57E+02 ”4.57E+02> 
StrCExp:f ,StrFar) 4.6E+02 ”4.6E+02" 
Str<Exp:Ó,StrVar> 4.6E+02 ”4.6E+02" 
Str<Exp:10, StrFVar> 4.5678E+02 ”4.5678E+02" 
StrCExp:11,StrVar) 4.5678E+02 *4.5678E+0" a 


Jeśli bezpośrednio po Vał występuje kwalifikator o pos— 
Łaci :m:n, w którym m i n są wyrażeniami typu integer, to 
omawiany literał jest wyrównywany prawostronnie w ciągu o 
długości m i niezależnie od wartości m jest przedstawiany 
jako zaokrąglony literał stałopozycyjny z n cyframi ułamkowy— 
mi. Jeśli literał nie da się przedstawić za pomocą m znaków, 
to m zostanie niejawnie zwiększone o tyle, aby było to wyko 
nalne. 


Przykłady Cprzyjęto, że Exp ma wartość 45.678E1, StrVar zaś 
jest typu stringl[101) 


Wywołanie Giąg StrVar 
StrCExp:6:2,StrVar> 456.78 ”456.78” 
StrC=Exp:6:2,StrVar> —456. 78 >-456.78> 
Str<-Exp:8:2,StrVar> b>-456. 78 > —456.78” 
Str(-Exp:12:2,StrVar> bbbbb—456. 78 > —456. 78? 
Strc-Exp:0:2,StrvVar> —456. 78 >—-456.78> u 


Procedura Vał 


Wywołanie: ValłCStr,Var,RegD 

Przyjmuje się, że Str jest wyrażeniem łańcuchowym, Far 
jest nazwą zmiennej typu integer albo real, a Rep jest nazwą 
zmiennej typu integer. 
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wykonanie procedury VFał powoduje potraktowanie znaków 
danej reprezentowanej przez Str jako zapisu liczby i przypi— 
sanie danej o wartości tej liczby zmiennej Far. Zabrania się, 
aby wspomniana liczba była poprzedzona spacjami, jak również 
zabrania się, aby po niej następowały spacje. Jeśli Var jest 
nazwą zmiennej typu integer, to wymaga się, aby także i licz— 
ba była typu integer. 

Jeśli opisana konwersja jest wykonalna, to zmiennej Rep 
zostanie przypisana dana o wartości 0. W przeciwnym razie, 
zmiennej tej zostanie przypisana dana o wartości dodatniej. 
Wartość tej danej będzie stanowić numer tego znaku danej łań— 
cuchowej, który uniemożliwił dokonanie konwersji. W takim 
przypadku wartość zmiennej Var nie ulegnie zmianie. 


Przykłady (przyjęto, że IntVar i IntRep są nazwami zmiennych 
typu integer 


Wywołanie IntVar Int Rep 
VałC”23”,IntVar,IntRepD 23 o 
Vałc”23.0”,IntVar,IntRepD b.z. 3 

VałC"-200 ”,IntVar,IntkepD) b.z. 5 m 


Funkcja Copy 


Wywołanie: CopyCStr ,Pos, Num) 

Przyjmuje się, że Str jest wyrażeniem łańcuchowym, a 
Pos i Num są wyrażeniami typu integer. 

Rezultatem funkcji Copy jest dana łańcuchowa składająca 
się z Num znaków łańcucha reprezentowanego przez Str, począw— 
szy od znaku o numerze Pos. Jeśli Pos>LengthC(Str>, to rezul— 
tatŁem funkcji jest dana łańcuchowa reprezentująca pusty ciąg 
znaków. jeśli CPos+Num)>LengthCStr>, to przyjmuje się 
Num: zLength(Str>-Pos+1i. Zabrania się, aby Pos wykraczało poza 
zakres 1..255. 


Przykłady 
Wywołanie Rezultat 
Copy€ Branka” ,3,4) anka” 
Copy€ Branka” ,5,32 * Ra” 
Copy€ Branka” ,7,22 >> 
Copyć Branka” ,2,1) r" | 


Funkcja Concat 


Wywołanie: ConcatCSti,Stź, ... ,StkR 
Przyjmuje się, że St1i, St2, ...  „,Stk są wyrażeniami 
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łańcuchowymi. 
Rezultatem funkcji jest dana łańcuchowa Sł1+St2+...+Stk 
Zabrania się, aby suma długości argumentów przekraczała 255. 


Przykłady 
Wywołanie Rezultat 
Concat(*”j*,'a',”n") > jan” 
Concatć'j”,””,'b")> > gb" 
Concat€' jan,” ”,”bD jan b” u 


Funkcja Pos 


Wywołanie: Pos(Src,Trg 

Przyjmuje się, że Src i Trg są wyrażeniami  łańcuchowy— 
mi. 

Rezultatem funkcji Pos jest dana typu integer, której 
wartość określa najmniejszy numer tej pozycji w ciągu znaków 
reprezentowanym przez Trg, od której rozpoczyna się podciąg 
identyczny z podciągiem reprezentowanym przez  Src. jeśli 
podciąg taki nie występuje, to rezultatem funkcji jest dana o 
wartości O. 


Przykłady 
Wywołanie Rezultat 
Pos€”23”,”123123) 2 


Pos€”21',”123123 5 
PosC'c', abcabc”) 
PosC””,itzabeła”) 


0600 


Procedura Insert 


Wywołanie: InsertCSrc,Trg,Pos) 

Przyjmuje się, że Src jest wyrażeniem łańcuchowym, Trg 
jest nazwą zmiennej łańcuchowej, a Pos jest wyrażeniem całko— 
witym. 

Wykonanie procedury Insert powoduje wstawienie do ciągu 
znaków reprezentowanego przez f[Trg, w miejscu przed jego 
znakiem określonym przez Pos, ciągu znaków reprezentowanego 
przez Src. Jeśli Pos>Łength(Trg>, to przyjmuje się, że 
Pos:=Length(Trg>+1. Zabrania się, aby Pos wykraczało poza za— 
kres 1..255. 

Jesli wstawienie znaków spowodowałoby przekroczenie ma— 
ksymalnego rozmiaru zmiennej Trg, to przypisanie jej danej 
reprezentującej nowy ciąg znaków odbędzie się od lewej do 
prawej z odrzuceniem znaków nadmiarowych. 
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Przykłady (przyjęto, że zmienna Trg jest typu string[5], a 
przed każdym wykonaniem procedury Insert ma wartość *jb'D> 


wywołanie Trg 

Insert('an' ,Trg,2) > janb” 

Insert jb ,Trg,4D) > 3bJD" 

InsertC' Janek ,Trg,1) > janek” m 


Procedura Delete 


Wywołanie: DelłeteC(Str „Pos, Num) 

Przyjmuje się, że Str jest nazwą zmiennej łańcuchowej, 
a Pos i Num są wyrażeniami całkowitymi. 

Wykonanie procedury Dełete powoduje usunięcie 2z ciągu 
znaków reprezentowanego przez Str porcji Num znaków, począw— 
szy od pozycji Pos. Jeśli Pos>Łength(Str>, to wykonanie pro— 
cedury nie ma Żadnych skutków. Jeśli Pos+Num-1>Length(Str, 
to przyjmuje się, że Num:=Pos+Num-1. Zabrania się, aby Pos 
wykraczało poza zakres 1..255. 


Przykłady €przyjęto, że zmienna Trg jest typu stringl5], a 
przed każdym wykonaniem procedury ma wartość *” janek”) 


Wywołanie Trg 

Delete(Trg,4,2D) > jan” 

DełetecTrg,Ó,12 > janek” 

DeleteC(Trg,5,3) ” jane” | 


8.5. TYPY ŁANCUCHOWE I ZNAKOWE 


Wszystkie typy łańcuchowe oraz predefiniowany typ  po- 
rządkowy char są ze sobą zgodne. Oznacza to, że w tych wszys— 
kich miejscach programu, w których poprawne jest użycie wy” 
rażenia łańcuchowego, poprawne jest odwołanie do danej typu 
char i na odwrót. Wymaga się jedynie, aby podczas przypisywa— 
nia wyrażenia łańcuchowego zmiennej typu char dana  reprezen— 
towana przez to wyrażenie była ciągiem znakowym o długości 1. 

Dostęp do poszczególnych znaków zmiennej łańcuchowej 
można uzyskać nie tylko za pomocą predefiniowanej funkcji Co- 
py, ale znacznie łatwiej za pomocą indeksowania. Jako defini— 
cję indeksowania można przyjąć równoważność 


Stli] = Copy(St,i,1) 


Równoważność ta jest jednak prawdziwa tylko wtedy, gdy 
zachodzi relacja 1<=i<=Łength(St>. Poza tym zakresem możliwe 


Typy łańcuchowe 56 


jest sięganie do sąsiednich bajtów pamięci operacyjnej, a w 
szczególności posługiwanie się wyrażeniem ora(St[0]0 w celu 
określenia bieżącej długości ciągu znakowego reprezentowanego 
przez St. 

Należy nadmienić, że użycie dyrektywy kompilatora £$%R+> 
tylko w niewielkim stopniu umożliwia wykrycie błędów związa- 
nych z niepoprawnym indeksowaniem. Wynika to stąd, że dyrek— 
tywa ta włącza kontrolę przekroczenia maksymalnego  dopusz— 
czalnego indeksu, znanego z deklaracji, ale nie wprowadza 
kontroli odwoływania się poza zakres bieżący. 


Przykład 
var 
Name : stringl5]; 


Name := "Jan; 
<$R+> 

Namel0] := chr<5); 
Namel[4] := "e"; 
Namel5] := *k"; 


e Po wykonaniu przytoczonych przypisań zmienna Name ma 
wartość ”Janek'. 

e Użycie dyrektywy kompilatora 4$R+»> jest zbędne, po- 
nieważ nie ma wpływu na przebieg wykonywania przypisań. 

e Gdyby w zasięgu wspomnianej dyrektywy wystąpiło np. 
przypisanie 

Nameló] := ”B>” 

to wykonywanie programu zostałoby wstrzymane na skutek  prze— 
kroczenia maksymalnego dopuszczalnego zakresu indeksu. m. 


9 TYPY TABLICOWE 


Każdy z typów tablicowych jest typem złożonym. Tablica 
składa się z ustalonej liczby komponentów, z których każdy 
jest takiego samego typu. Komponenty mogą być zarówno typu 
prostego, jak i typu złożonego. Dostęp do komponentów tabli— 
cy, nazywanych również elementami, odbywa się poprzez  inde— 
ksovanie. lIndeksem może być dowolne wyrażenie skalarne ujęte 
w nawiasy kwadratowe. Dopuszczalny zakres indeksów jest okre— 
$Slony w opisie typu tablicowego. 

Opis typu tablicowego składa się ze słowa kluczowego 
array, bezpośrednio po którym następuje ujęty w nawiasy 
kwadratowe opis indeksów, słowo kluczowe of, a za nim opis 
typu komponentów. 


Składnia 
opis-typu-tabl icovego: 
array [ typ-indeksów | of typ-elementów 
typ-indeksów: 
opis-typu-porządkowego 
typ-ełementów: 
opis-typu 


Przykłady 

type 
Color = CRed, Green, Blue); 
TruthTable = arraylboolłean] of boolean; 
Height = 0..200; 

var 
Square : array [Color] of Height; 
Matrix : arrayl[2..8]) of arrayl[2..8] of integer; 
Tabłe : TruthTable; 
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e Typ TruthTable jest związany ze zbiorem tablic o in- 
deksach i elementach typu boolean. 

e Zmienna Square jest tablicą o indeksach typu Color i 
elementach typu Hetght. 

e Zmienna Matrix jest tablicą o indeksach typu 2..8 i 
elementach, które są tablicami o indeksach typu 2..8 i ele- 
mentach typu tinteger. 

e Zmienna Matrix jest tablicą typu TruthTable, tj. ta- 
blicą o indeksach typu boolean. m 


Elementy tablic są reprezentowane w programach za pomo— 
cą tzw. nazw elementów tablic. Nazwa elementu tablicy składa 
się z nazwy tablicy, bezpośrednio po której następuje wyraże- 
nie indeksowe ujęte w nawiasy kwadratowe. Wyrażenie indeksowe 
może być dowolnym wyrażeniem porządkowym takiego samego typu, 
jaki pod nazwą typ-indeksów występuje w opisie typu tablico— 
wego. 

Użycie dyrektywy ($R+)> powoduje generowanie kodu  doko— 
nującego kontroli poprawności wyrażeń  indeksowych. Kontrola 
ta polega na upewnieniu się, że wartość wyrażenia indeksowego 
mieści się w zakresie wyznaczonym przez typ indeksów w opisie 
typu tablicowego. 


Przykład 
type 
Cołor = CRed,Green, Blue); 
var 
Matrix : arrayl[Cołor]) of boolean; 


e Zmienna Matrix jest tablicą o indeksach typu Cołor i 
elementach typu boołean. 
e Poprawnymi nazwami elementów tablicy Matrix są m.in. 
MatrixlGreen] 
Matrixlpred(Blue)>] 
MatrixiColor<ordttrue>>1 
e W zasięgu dyrektywy kompilatora $R+)> taka nazwa ele- 
mentu tablicy jak np. MatrixisuccC(Błue)]l zostałaby rozpoznana 
jako niepoprawna. w 


9.1. TABLICE WIELOWYMIAROWE 


Ponieważ elementami tablic mogą być tablice, łatwo jest 
konstruować tablice dwu- i więcej wymiarowe. Zgodnie ze skła— 
dnią, definicja typu opisującego tablicę dwuwymiarową przy- 
biera np. postać 
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type 
TwoDim = array[2..5) of arraylboolean] of real; 
Definicja taka może być zapisana w Sposób uproszczony 
type 
TwoDim = array[2..5,boolean] ef real; 
tzn. opisy typu indeksów mogą być ujęte w listę zawartą w 
nawiasach kwadratowych. Podobne uproszczenie może być  zasto— 
sowane również w odniesieniu do nazw tablic. W zasięgu 
deklaracji takiej jak np. 
var 
Matrix TwoDim; 
za poprawne i równoważne uznaje się bowiem takie m.in. nazwy 
elementów tablicy Matrix jak MatrixI3][truel i Matrix[3,truel 


Przykład 
type 
Pupils = stringl20]; 
Cłass = arrayl[1..30]1 of Pupils; 
var 
School arrayl1..20] of Cłass; 


e Typ Cłass opisuje zbiór, którego elementami są tabli— 
ce zawierające wykazy nazwisk uczniów pewnej klasy. 

e zmienna School jest tablicą dwuwymiarową, typu 

array[1..20) of array[1..30] of stringl20] 

w której są przechowywane dane określające nazwiska uczniów 
każdej z 20 klas danej szkoły. 

e Nazwa Schoolł[3)J125] dotyczy ucznia klasy nr 3, wystę— 
jącego na liście uczniów tej klasy na pozycji 25. Nazwa ta 
jest równoważna nazwie uproszczonej Schooł[3,25]. m 


9 2. TABLICE ZNAKOWE 


Tabłicami znakowymi są tablice jednowymiarowe, o typie 
indeksów integer, których elementy są typu standardowego 
char. Tablice takie mogą być uważane za zmienne łańcuchowe 
reprezentujące ciągi znaków o stałej długości. Dzięki takiej 
interpretacji nazwy tablic znakowych i nazwy elementów tych 
tablic mogą występować w wyrażeniach łańcuchowych wszędzie 
tam, gdzie mogą występować nazwy zmiennych łańcuchowych.  Do- 
tyczy to w szczególności relacji. 


Przykład 


type 
Number = 2..5; 
StrTyp = Stringl05]; 
ArTTyp = arrayl[Number] of char; 
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var 
Strvar StrTyp; 
ArrVar ArrTyp; 


tT : byte; 
begin 
for i := 2 to 5 do 
ArrVar[i] := chr<ó3 + it); 
StrVar := "98765"; 
StrVar := Copy(Str/ar,2,2> + ArrvFar + ”—/” + ArrvVvarl4]; 


e Po wykonaniu drugiej instrukcji przypisania zmienna 
StrVar ma wartość ”87ABC”. 
e W tym samym momencie relacja 
ArrVar > StrVar 
ma wartość true. m 


9.3. PRZYPISANIA 


Zgodnie z zasadą, że zmiennej dowolnego typu może być 
przypisana dana takiego samego typu, jest możliwe przypisa— 
nie, za pomocą jednej instrukcji, całej tablicy zmiennej ta— 
blicowej. Dozwolone jest również przypisanie literału 
znakowego tablicy znakowej, ale tylko wtedy, gdy liczba zna— 
ków literału jest równa liczbie znaków tablicy. Zabrania się 
natomiast przypisywania innych wyrażeń znakowych  tablicom. 
Nic jednak nie stoi na przeszkodzie przypisywaniu wyrażeń 
łańcuchowych i tablic znakowych zmiennym łańcuchowym. 


Przykład 

type 
Line : stringl(6ó0]; 
Page : array[1..30] of Line; 
Chapter : arrayl1..50] of Page; 
Word : array[(1..5] of char; 

var 
Booki ,BooR2 : arrayl1. .6] of Chapter; 
Arr : Word; 
Brr : array[(1..5] of char; 
Str : stringlS5]1; 


e Ww zasięgu przytoczonych definicji i deklaracji popra— 
wne są m.in. następujące przypisania: 
Booki := Book2 
ADP := ”Janek" 
Str := Arr 
e Niepoprawne są natomiast przypisania 
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Arr := "Jan — ponieważ literał liczy za mało znaków 

Arr := Str — ponieważ Str jest wyrażeniem łańcuchowym 

Arr := Brr — ponieważ Arr jest typu Word, a Brr nie 
jest typu Word. u 


0.4. TABLICE PREDEFINIOWANE 


w języku Turbo Pascal dla Elwro 800 Jr predefiniowano 
dwie tablice o elementach typu integer, umożliwiające dostęp 
do pamięci operacyjnej oraz do portów wejścia/wyjścia. 


Tablica Mem 


Tablica Mem zapewnia dostęp do bajtów pamięci operacyj- 
nej. Indeksem w każdym odwołaniu do tej tablicy jest wyraże- 
nie typu integer określające adres bajtu. 


Przykład 
ByteVar := Meml[200] 
Memi3001 := $FF 


e Wykonanie pierwszej instrukcji powoduje przypisanie 
zmiennej ByteVar danej reprezentowanej w bajcie pamięci ope- 
racyjnej o adresie 200. 

e Wykonanie drugiej instrukcji powoduje umieszczenie 
danej bajtowej o wartości $FF w bajcie pamięci o adresie 300. 

m 


Tabłica Port 


Tablica Port zapewnia dostęp do portów wejścia/wy jścia. 
Indeksem w każdym odwołaniu do tej tablicy jest wyrażenie ty- 
pu integer określające adres portu. Elementy tablicy Port nie 
mogą występować jako argumenty odwołań do podprogramów, ale 
mogą występować w wyrażeniach oraz z lewej strony symbolu 
przypisania. Jeśli występują w wyrażeniu, to reprezentują da— 
ne pochodzące z podanego portu. Jeśli występują z lewej stro— 
ny symbolu przypisania, to następuje przesłanie danej do po” 
danego portu. 


Przykład 
Portl34] := $5F 
PortStatus := PortL35] 


e Wykonanie pierwszej instrukcji powoduje umieszcze- 
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nie w porcie o adresie 34 danej reprezentowanej przez literał 
S$5F. 

e Wykonanie drugiej instrukcji powoduje sięgnięcie do 
portu o adresie 35 i przypisanie znajdującej się tam danej 
zmiennej PortStatus. a 


w języku Turbo Pascal dla IBM PC predefiniowano analo- 
giczne tablice jak dla Elwro 800 Jr, z tą różnicą, że  inde— 
ksem tablicy Mem jest napis postaci 

seg : ofs 
w napisie tym seg reprezentuje numer segmentu, a ofs  repre— 
zentuje przemieszczenie w segmencie. Ponadto predefiniowano 
tablice Memy i PortW umożliwiające dostęp do słów i portów 
słowowych. 


Przykład 
Memi$0020 : $%0030] := ”E> 


e Wykonanie przytoczonej instrukcji powoduje zlokalizo— 
wanie bajtu o adresie względnym $30, znajdującego się w seg— 
mencie o numerze $0020 i umieszczenie w nim danej reprezento— 
wanej przez ”E”. m 


10. TYPY REKORDOWE 


Każdy z typów rekordowych jest typem złożonym. Rekord 
składa się z ustalonej liczby komponentów, które mogą być 
różnych typów. Komponenty mogą być zarówno typu prostego, jak 
1 typu złożonego. Dostęp do komponentów, nazywanych również 
polami, odbywa się poprzez selekcję. Selekcja polega na 
określeniu nazwy rekordu, po której następuje znak (kropka) 
1 identyfikator pola rekordu. 

Opis typu rekordowego składa się ze słowa kluczowego 
record, bezpośrednio po którym następuje wykaz pól rekordu i 
słowo kluczowe end. Każdy element wykazu ma postać deklaracji 
pola. Deklaracje pól są oddzielone średnikami, a ostatnim 
elementem wykazu może być część wariantowa rekordu. Część 
wariantowa składa się ze słowa kluczowego case, bezpośrednie 
po którym następuje deklaracja pola wyróżnikowego albo opis 
typu wyróżnikowego, słowo kluczowe of, a bezpośrednio po nim 
wykaz wariantów. Każdy element wykazu wariantów składa się z 
listy etykiet wyboru zakończonej dwukropkiem i ujętego w 
nawiasy okrągłe wykazu pól wariantu. Poszczególne elementy 
wykazu wariantów są oddzielone średnikami. 


Składnia 
opis-typu-reRordowego: 
record wykaz-pól-rekordu end 
vwykaz-pól-rekordu: 
deklłaracja-pola 
część-war iantowaorekordu 
deklaracja-pola: 
łista-nazw-pół opis-typu 
nazwa-poł a: 
identyfikator 
część-wariantowa-rekordu: 
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case deklaracja-pola-vyróżnikowego of wykaz-variantów 
case opis-tygu-wyróżnikowego of wykaz=variantów 
deklaracja-pola-wyróżnikowego: 
nazwa-poła-wyróżnikowego : opis-typu-vyróżnikowego 
nazva-pola=wyróżntkovwego: 
identyfikator 
opis-typu-wyróżnikovego: 
identyfikator-typu-porządkowego 
vwykaz=variantów: 
łista-etykiet-wyboru : € wykaz-pół-wariantu > 
etykieta-wyboru: 
łiterażł 
nazwa-lłiterału 


Przykłady 
type 
Days = 1..31; 
Date = record 
Day : Days; 


Month : 1..12; 
Year : 1900..1999 
end; 
Person = record 
Name : stringl20]; 
BirthPlace : stringl301; 


case Sex : male, femalłe,alien) of 
male, female : (CBirthDate : Date); 
alien : (BirthDate : reał; 


BodyData : record 
H : integer; 
W : reał 
end) 
end; 
var 
MyBirthDay : Date; 
EarthMan,Gałaxian : Person; 


e Typ Date jest związany ze zbiorem rekordów, których 
pola są typu Days, 1..12 i 1900. .1990. 

e Typ Person jest związany ze zbiorem rekordów z waria— 
ntami. Wyróżnikiem wariantów jest pole Sex typu (małe, female, 
ałien>. Jeśli wyróżnik Sex ma wartość małe albo female, to 
rekord typu Person składa się z pól typu stringl20)], string 
[30], Cmałe,female,alien)>, 1..31, 1..12 i 1900..1999. Jeśli 
wyróżnik Sex ma wartość alien, to rekord typu Person składa 
się z pól typu stringl201, stringil30], (małe, female,alien), 
reał, integer i real. 
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e Zmienna MyBirthDay jest rekordem składającym się z 
pól Day, Month i Year. 

e Zmienne EarthMan i Galłaxian są rekordami typu Person. 
Wybór wariantu rekordów odbywa się przez przypisanie polu wy— 
różnikowemu danej typu (male, female,alien). 

e Pole wyróżnikowe zmiennej EarthMan jest identyfikowa— 
ne przez selekcję EarthMan. Sex, a pole wyróżnikowe zmiennej 
Gałaxian przez selekcję Galaxtan. Sex. 

e Po wykonaniu przypisania 

Gałaxtan. Sex := alien 
jest dozwolone odwoływanie się do komponentów wariantu ałien. 
Ww szczególności poprawne jest wówczas przypisanie 
Gałaxian.BodyData.H := 20 


w którym operator selekcji . Ckropka)»> zastosowano najpierw do 
komponentów rekordu Gałaxian, a następnie do komponentów re- 
kordu Gałaxian. BodyData. m 


10.1. INSTRUKCJA WITH 


Odwoływanie się do komponentów rekordu wymaga podania 
nie tylko nazwy pola, ale również nazwy samego rekordu.  Po— 
nieważ w pewnych przypadkach znacznie wydłuża to tekst pro” 
gramu, wygodnie jest posłużyć się instrukcją wiążącą with 
"odsłaniającą' wnętrze definicji typu rekordowego. 

w ogólnym przypadku instrukcja with składa się ze słowa 
kluczowego with, bezpośrednio po którym następuje lista nazw 
rekordów, słowo kluczowe de i dowolna instrukcja. W jej 
obrębie selekcja pola rekordu wymienionego w liście może być 
zastąpiona samą nazwą pola. Przyjmuje się z definicji, że 
instrukcja o postaci 

with a, b», ...,z do i 
jest równoważna instrukcji 
with a do 
with b» do 


with z do ti 
Składnia 
instrukcja-vwith: 
with lista-nazw-rekordów do instrukcja 
nazwa-rekordu: 
identyfikator 
nazwa-elementu-tabłicy 
nazwa-poła 
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Przykład 
var 
Alfa : record 
Beta : record 
Gamma : char; 
Delta : real 
end; 
Gamma : integer 
end; 
Beta : arraylboolean] of record 
Chi, Tau : real 
end; 


e w zasiegu przytoczonej deklaracji poprawna jest in— 
strukc ja 
with Alfa.Beta,Betaltrue] do 
Delta := Tau 
wykonywana tak jak instrukcja 
Alfa.Beta.Delta := Betaltruel.Tau 
e Poprawna jest także instrukcja 
with Alfa.Beta,Alfa do begin 
Delta := 23.4; 
Wr itelnCGamma) 
end 
wykonywana jak instrukcja 
begin 
Alfa.Beta.Delta := 23.4; 
Wr i tel nCAł fa. Gamma) 
end 
e Należy zwrócić uwagę, że kolejność nazw rekordów na 
liście instrukcji with jest istotna, gdyż instrukcja taka jak 
with Alfa,Alfa.Beta do begin 
Delta := 23.4; 
vr i tel nCGamma) 
end 
jest wykonywana tak jak instrukcja 
begin 
Atfa.Beta.Delta := 23.4; 
WritelnCAl fa. Beta. Gamma) 
end 
a nie jak instrukc ja 
begin 
Alfa.Beta.Delta := 23.4; 
wr itelnCAl fa. Gamma > 
end a 
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10.2. TRAKTOWANIE WARIANTÓW JAKO UNII 


Jeśli rekord zawiera część-wariantową, to w reprezen- 
tacji wewnętrznej przyjętej w Turbo Pascalu, pierwsze pole 
każdego wariantu zaczyna się od tego samego bajtu pamięci. 
Biorąc ponadto pod uwagę, że deklaracja pola wyróżnikowegoa 
oamęści wariantowej może zostać uproszczona do opisu typu, 
łatwo jest przekształcić opis rekordu w opis unii. Należy je- 
dynie uwzględnić, iż w odróżnieniu od operacji na rekordach 
operacje na uniach wymagają znajomości sposobu  reprezentowa- 
nia komponentów, a przynajmniej sposobu rozmieszczenia i roz- 
miaru każdego z nich. 


Przykład 
var 
Word : record 
case boolean of 
false : (LovByte,fłighByte : byte); 
true : CFułlyord : integer) 
end 
e W zasięgu przytoczonej deklaracji dopuszczalne jest 
wastąpienie instrukcji 
with Vord do 
FullVord := Fullvord and $FF0O0 
instrukcją 
with Word do 
ŁovByte := 0 
e Poprawność przytoczonego postępowania wynika z faktu, 
że mniej znaczący bajt danej typu integer zajmuje w pamięci 
operacyjnej bajt o niższym adresie, pola struktury zaś wystę” 
pują w pamięci operacyjnej w takiej samej kolejności w jakiej 
zostały zadeklarowane (tu ŁowByte przed HighByte). a 


10.3. PRZYPISANIA REKORDÓW 


Analogicznie do przypisywania zmiennym tablicowym ca” 
łych tablic jest dozwolone przypisywanie zmiennym rekordowym 
całych rekordów. Wymaga się jedynie, aby typ zmiennej  rekor- 
dowej był identyczny z typem przypisywanego jej rekordu. 


Przykład 
type 
Name = record 
LastName : stringl32]; 
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Names : arrayl(C/fst,snd,trd>] of stringl8] 
end; 
var 
JohnName, EvwaName : Name; 


EvaName := JokhnName; a 


1. TYPY MNOGOŚCIOWE 


Każdy z typów mnogościowych jest typem złożonym.  Mno= 
gość składa się z wybranego podzbioru pewnego zbioru 
potęgowego. Zbiorem podstawowym zbioru potęgowego może być 
dowolny zbiór elementów typu porządkowego. Każdy element mno— 
gości jest jednym z takich właśnie elementów. 

Dwie dane mnogościowe są uznawane za równe wtedy i 
tylko wtedy, gdy składają się z takich samych elementów. jJeś— 
li wszystkie elementy jednej mnogości są elementami drugiej, 
to mówi się, że pierwsza mnogość zawiera się w drugiej. 

Opis typu mnogościowego składa się ze słowa kluczowego 
set, bezpośrednio po którym następuje słowo kluczowe of i 
opis typu podstawowego. Wymaga się, aby typ porządkowy  peł- 
niący rolę typu podstawowego nie zawierał więcej niż 256 ele- 
mentów oraz aby rezultat funkcji ord dla każdego z tych 
elementów mieścił się w przedziale domkniętym [0,2551]. 


Składnia 
opis-typu-mnogościowego: 
set of typ-podstawowy 
typ-podstawowy: 
typ-porządkowy 


Przykłady 
type 
DaysOfVeek set of CMon,Tue,Ved,TkRu,Fri, Sat, Sun); 
Chars set of char; 
SmallLetters set of ”a'..”Z'; 
DayNumbers set of 1..31; 


e Wartością danej typu DaysOfVeek może być dowolny, w 
tym pusty, podzbiór zbioru nazw dni tygodnia. 
e Wartością danej typu Chars może być dowolny podzbiór 
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zbioru znaków ASCII. 

e Wartością danej typu SmallLetters może być dowolny 
podzbiór zbioru małych liter alfabetu ASCII. 

e Wartością danej typu DayNumbers może być dowolny pod— 
zbiór zbioru liczb całkowitych z przedziału domkniętego 
[1,31]. a 


11.1. LITERAŁY MNOGOŚCIOWE 


Łiterał mnogościowy składa się z zawartej w nawiasach 
kwadratowych listy literałów, z których każdy jest tego same— 
go typu porządkowego. Lista ta może być pusta, może zawierać 
powtórzenia elementów oraz może zawierać konstrukcje o posta— 
ci min..max, w których min i max są |literałami tego Samego 
typu. W tym ostatnim przypadku napis min..max jest równoważny 
liście wszystkich literałów od min do max włącznie. jeśli 
min>max, to napis ten opisuje podzbiór pusty. 

Należy nadmienić, że wartość literału mnogościowego nie 
zależy od kolejności tworzących go literałów typu podstawowe— 
go, a wielokrotne ich wystąpienia nie mają wpływu na wartość 
literału mnogościoweęgo. 


Przykład. Kilka poprawnych i niepoprawnych literałów mno£gos— 
ciowych 
Literały poprawne: [”P”,'a”,'s”,'c”,a',"Ł>] 
[4,9,5,0,8,6] 
(true, false] 
(I 
[20..30,50,70..80] 
Napisy, które nie są literałami mnogościowymi: 
ftrue,2] — różne typy podstawowe 
[200..300] = ord<3002>255 
[4.0,5.0] — typ podstawowy nie jest typem porząd— 
kowym a 


11.2. WYRAZENIA 


Wyrażenia mnogościowe składają się z odwołań do zmien- 
nych mnogościowych, odwołań do literałów i konstruktorów mno— 
gościowych oraz operatorów sumy, różnicy i przecięcia. 

Konstruktory mnogościowe mają postać zbliżoną do lite— 
rałów mnogościowych, tyle że elementami ich list mogą być nie 
tylko literały typu podstawowego, ale również dowolne wyraże— 
nia tego typu. 
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Operator sumy mnogości jest zapisywany za pomocą znaku 
+ (plus), operator różnicy za pomocą znaku — (minus), a ope- 
rator przecięcia za pomocą znaku * (gwiazdka). 

Sumą mnogości jest mnogość składająca się z wszystkich 
elementów obu składników. Różnicą mnogości jest mnogość skła— 
dająca się z tych wszystkich elementów odjemnej, które nie są 
elementami odjemnika. Przecięciem mnogości jest mnogość skła— 
dająca się z wszystkich elementów wspólnych czynników prze- 
cięcia. 

Poza operacjami mnogościowymi, dane typu mnogościowego 
mogą występować w relacjach: 

a=b prawdziwej, jeśli a i b są zbiorami tych sa- 

mych elementów; 

a © b prawdziwej, jeśli a i b są różnymi zbiorami 

elementów; 
a <= b prawdziwej, jeśli a jest pustym zbiorem ele- 
mentów albo gdy każdy element należący do a 
należy także do b; 

a >= b prawdziwej, gdy b jest pustym zbiorem elemen- 
tów albo gdy każdy element należący do b na 
leży także do a; 

e in a prawdziwej, gdy element typu podstawowego e 
jest elementem zbioru elementów a. 


Przykłady. W zasięgu deklaracji zmiennej SetVar, której przy” 
pisano daną mnogościową reprezentowaną przez literał 
[ Red, Green] 


type 
Colors = CRed,Green,BlueD); 
Paint = set of Colors; 

var 
SetVar Paint; 


SetVar := IRed,Green]; 


prawdziwe jest zestawienie: 


Wyrażenie Rezultat 
SetVar = [Red..Blue] -— [Blue] true 
SetVar © L[] true 
SetVar <= [Red..succ(Green)] true 
SetVar >= IBłue..Green] true 
SetVar * [Red] = [Red] true 
[Green] in SetVar true 


[] in SetVar true m 
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11.3. PRZYPISANIA MNOGOŚCI 


Analogicznie do przypisania zmiennym tablicowym całych 
tablic oraz zmiennym rekordowym całych rekordów, jest  dozwo- 
lone przypisywanie zmiennym mnogościowym mnogości. Wymaga się 
jedynie, aby typ zmiennej mnogościowej był identyczny z typem 
przypisywanej jej danej mnogościowe j. 


Przykład 
var 
SetVar arrayl2. .5,boolłean] of set of 20..30; 


SetVar[3, falsel := [5*5 pred<292>]; 


e Prawą stronę instrukcji przypisania Stanowi konstruk— 
tor mnogościowy. Konstruktor ten jest równoważny  literałowi 
mnogościowemu [25,26,27 ,28]1. m 


12. TYPY PLIKOWE 


Każdy z typów plikowych jest typem złożonym. Plik 
składa się z komponentów, z których każdy jest takiego samego 
typu. Komponenty pliku są nazywane jego elementami. W od-— 
różnieniu od typu tablicowego liczba elementów pliku nie jest 
ustalona w deklaracji pliku, lecz jest uzależniona od prze— 
biegu wykonywania programu, a w szczególności od tego, z  ja- 
kim zbiorem danych rozpatrywany plik zostanie skojarzony. 

Należy podkreślić, że obiekt nazywany plikiem jest  je- 
dynie abstrakcyjnym modelem fizycznego zbioru danych występu- 
jącego najczęściej poza programem. Fizyczne zbiory danych — 
nazywane tu krótko zbiorami — mogą rezydować w pamięci 
zewnętrznej komputera, mogą zajmować część jego pamięci ope— 
racyjnej, a także mogą być utożsamiane ze strumieniami danych 
wprowadzanych i wyprowadzanych za pomocą urządzeń zewnętrz— 
nych. 

Możliwość przetwarzania różnych zbiorów danych za pomo- 
cą tego samego pliku, po uprzednim skojarzeniu pliku ze zbio— 
rem, stanowi znaczne ułatwienie programowania, ponieważ ogra— 
nicza zadanie programu jącego do koncentrowania się na istot- 
nych elementach algorytmu przetwarzania bez wnikania w dzia— 
łania specyficzne dla danego systemu operacyjnego oraz w Spo— 
sób reprezentowania danych w pamięci zewnętrznej. Ż tego 
względu programowanie na poziomie abstrakcji nazywanej pli— 
kiem sprowadza się głównie do otwarcia pliku, wykonania ope— 
racji na jego elementach oraz do zamknięcia pliku. 

Opis typu plikovego składa się ze słowa kluczowego file 
bezpośrednio po którym następuje słowo kluczowe of, a za nim 
opis typu elementów pliku. Elementami pliku mogą być obiekty 
dowolnych typów prostych, a także dowolne agregaty z wyjąt— 
kiem plików. 
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Składnia 
opis-typu-pl iRowego: 
file of typ-ełementów-pliku 
typ-elementów-pliku: 
opis-typu 


Przykłady 
type 
Measurements : file of real; 
Persons : file ot 
record 
Name : stringl[20]; 
Sex : (male, female); 
Age : 18..65 
end; 
var 
Experiment : Measurements; 
Population : Persons; 
Complexes : file of record 
Re,lm : real 
end; 
Arrays : file of array([2..6,4..8,boolean] of Dbyte; 


e Typ Measurements jest związany ze zbiorem sekwencji 
danych typu real. 

e Typ Persons jest związany ze zbiorem sekwencji Sskła- 
dających się z rekordów o komponentach typu string(20],  (ma- 
le,fjemałe)> i 18. .65. 

e Zmienna Experiment jest zmienną plikową typu Measure— 
ment. 

e Complexes jest zmienną plikową reprezentującą plik 
związany ze zbiorem sekwencji par danych typu real. 

e Zmienna Arrays jest zmienną plikową reprezentującą 
plik związany ze zbiorem sekwencji tablic typu 
array[2..6,4..8,boolean] of byte. a 


12.1. PODPROGRAMY 


Operacje na plikach mogą być wykonywane jedynie za  po- 
mocą wywołań funkcji i procedur. Każda z takich operacji musi 
być poprzedzona skojarzeniem pliku ze zbiorem danych, a jeśli 
dotyczy elementów pliku, to musi być także poprzedzona otwar— 
ciem pliku. Skojarzenie pliku ze zbiorem odbywa się za pomocą 
procedury Assign, a otwarcie pliku za pomocą procedur Keset i 
Revurite. Użycie procedury Reset nie implikuje, że plik jest 
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otwierany wyłącznie w celu wprowadzania elementów zbioru, a 
użycie procedury Aewrite nie implikuje, że plik jest 
otwierany wyłącznie w celu ich wyprowadzania. Przed zakończe— 
niem wykonywania programu każdy plik powinien zostać zamknię— 
ty. Służy do tego procedura Cłose. Samo zakończenie wykonywa” 
nia programu nie pociąga za sobą zamknięcia nie zamkniętych 
jeszcze plików. 

Bezpośrednio po otwarciu plik znajduje się w pozycji 
początkowej. Zmiana pozycji pliku może być uzyskana za pomocą 
procedury Seek. Aktualny rozmiar pliku może być określony za 
pomocą funkcji FiłeSize, a jego aktualna pozycja za pomocą 
funkcji FilePos. Jeśli plik zostanie ustawiony w pozycji po” 
średniej, tj. między pozycją początkową a końcową, to każde 
wykonanie procedury Wirte spowoduje zmianę najbliższego ele— 
mentu pliku. Zmiana ta nie będzie miała żadnego wpływu na 
stan pozostałych elementów pliku. Z tego względu pliki o ele-— 
mentach ustalonego typu mogą reprezentować zbiory o organiza— 
cji sekwency jno-wyrywkowe j. 


Procedura Assign 


Wywołanie: Assign(CFileVar StrExp) 

Przyjmuje się, że FileVar jest nazwą zmiennej plikowej, 
a StrExp jest wyrażeniem łańcuchowym, Wymaga Się, aby plik 
reprezentowany przez FiłeVar nie był otwarty. 

Wykonanie procedury Assign powoduje skojarzenie pliku 
reprezentowanego przez zmienną FileVar ze zbiorem danych o 
nazwie określonej przez wartość danej reprezentowanej przez 
wyrażenie StrExyp. 


Przykład 
var 
Results : file of real; 


Assign(Results, "A: TESTS. DOC” 2; 


e Zmienna plikowa Results reprezentuje plik o elemen- 
tach typu real. 

e Wykonanie procedury Assign powoduje skojarzenie pliku 
reprezentowanego przez zmienną Results ze zbiorem danych 
TESTS. DOC znajdującym się na dyskietce umieszczonej w stacji 
dyskowej 4. 


e Wykonanie procedury 4ssign nie powoduje otwarcia pli- 
ku reprezentowanego przez zmienną Results. | 


Typy płikowe 76 


Procedura Reset 


Wywołanie: Reset(FileVar> 

Przyjmuje się, że FileFar jest nazwą zmiennej plikowej. 
Wymaga się, aby przed wywołaniem procedury Reseł plik repre- 
zentowany przez zmienną FileVar był skojarzony z istniejącym 
zbiorem danych. 

Wykonanie procedury Reset powoduje otwarcie pliku re- 
prezentowanego przez zmienną FilłeVar. Bezpośrednio po otwar- 
ciu plik zostaje ustawiony w pozycji początkowej, tj. tuż 
przed jego pierwszym elementem. 


Przykład 
var 
InpgFile : file of record 
Name: stringl[30]; 
lncome : real 
end; 
Assign(InpFile, * INCONE. DOC” >; 
Reset(InpFileD); 


e Wykonanie procedury Assign powoduje skojarzenie pli- 
ku reprezentowanego przez zmienną plikową Z/npFilłe ze zbiorem 
INCOME. DOC znajdujacym się na dyskietce umieszczonej w dom- 
niemanej stacji dyskowej. 

e Wykonanie procedury Reset powoduje otwarcie pliku re= 
prezentowanego przez zmienną /InpFile. 

e Otwarcie pliku za pomocą procedury Reset nie wyklucza 
możliwości przyszłego odwoływania się do niego za pomocą pro= 
cedur Seek i Write. a 


Procedura Rewrite 


Wywołanie: RewriteC(FileVar> 

Przyjmuje się, że FileVar jest nazwą zmiennej plikowej. 
Wymaga się, aby przed wywołaniem procedury Revrite plik re- 
prezentowany przez zmienną FiłeVar był skojarzony ze zbiorem 
danych. 

Wykonanie procedury Rewrite powoduje otwarcie pliku re-= 
prezentowanego przez zmienną FileVar. Bezpośrednio po otwar= 
ciu plik zostaje ustawiony w pozycji początkowej, tj. tuż 
przed jego pierwszym elementem. 

Jeśli przed wykonaniem procedury Revrite zbiór skoja” 
rzony z plikiem nie istniał, to zostanie utworzony. Jeśli 
istniał, to zostanie usunięty i utworzony ponownie. W obu 
przypadkach zostanie utworzony zbiór pusty. 
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Przykład 
var 
QutFile : file of arrayl1i..20] of Dyte; 


AssignCOutFile,  B:TESTS. OUT" >; 
RevuriteC(OutFile); 


e Wykonanie procedury 4Assign powoduje skojarzenie pliku 
reprezentowanego przez zmienną plikową QOutFile ze zbiorem 
TESTS.OUT znajdującym się na dyskietce umieszczonej w stacji 
dyskowe j B. 

e Wykonanie procedury Revwrite powoduje otwarcie pliku 
reprezentowanego przez zmienną OutFile. Po dokonaniu otwarcia 
plik reprezentowany przez tę zmienną jest pusty. 

e Otwarcie pliku za pomocą procedury Rewrite nie wyklu- 
cza możliwości odwoływania się do niego za pomocą wywołań 
procedur Seek i Read. a 


Procedura Read 


Wywołanie: Read(FileVar ,„VarListD 

Przyjmuje się, że FiłeVar jest nazwą zmiennej plikowej, 
a VarList jest nazwą zmiennej albo listą nazw zmiennych. Wy- 
maga się, aby plik reprezentowany przez zmienną FileVar Dył 
otwarty. Zabrania się, aby jakakolwiek zmienna VarList była 
innego typu niż typ elementów pliku. 

Wykonanie procedury Read z listą nazw zmiennych jest 
równoważne wykonaniu ciągu procedur Read. z nazwami tych 
umiennych. Wykonanie procedury Read z nazwą zmiennej powoduje 
wprowadzenie z pliku jednego elementu i przypisanie go zmien” 
nej o podanej nazwie. 


Przykład 
type 
ElmType = record 
Re,Im : real 
end ; 
var 
InpFile : file of ElmType; 
ArrVar : arraylboołean,2..4] of ElmlIype; 


Assign(InpFile, "COMPLEX. DOC*>; 
Reset(CInpFile); 
ReadCInpFile,ArrVaritrue,3]D; 


e Wykonanie procedury Assign powoduje skojarzenie pli- 
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ku reprezentowanego przez zmienną plikową InpFfile ze zbiorem 
COMPLEX. DOC. 

e Wykonanie procedury Reset powoduje otwarcie pliku re- 
prezentowanego przez zmienną /ZnpFile. 

e Wykonanie procedury Read powoduje wprowadzenie z pli— 
ku reprezentowanego przez InpFile jednego elementu i przypi- 
sanie go elementowi Arr/aritrue,3] tablicy ArrVar. u 


Procedura Write 


Wywołanie: WriteCFileFar  VFarŁistoD 

Przyjmuje się, że FileVar jest nazwą zmiennej plikowej, 
a HarList jest nazwą zmiennej albo listą nazw zmiennych. 
wymaga się, aby plik reprezentowany przez zmienną FileFar był 
otwarty. Zabrania się, aby jakakolwiek zmienna VarżŁist była 
innego typu niż typ elementów pliku. 

Wykonanie procedury Write z listą nazw zmiennych jest 
równoważne wykonaniu ciągu procedur Write z nazwami tych 
zmiennych. Wykonanie procedury Write z nazwą zmiennej powodu— 
je wyprowadzenie do pliku reprezentowanego przez FileFar  da— 
nej przypisanej tej zmiennej. 


Przykład 
type 
ElmType = record 
| Re,lm : real 


end; 
var 
OQutFile : file of ElmType; 
ArrVar : arraylboolłean]i of EłlmType; 


Assign(OutFile, COMPLEX. RES”>; 
RevriteC(OutFile); 
WriteCOutFilłe,ArrVari false] ,ArrVarltrue]lD); 


e Wykonanie procedury Assign powoduje skojarzenie pli-— 
ku reprezentowanego przez zmienną plikową OutFile ze zbiorem 
COMPLEX. RES. 

e Wykonanie procedury KRevrite powoduje otwarcie pliku 
reprezentowanego przez zmienną OutFile. 

e Wykonanie procedury Write powoduje wyprowadzenie do 
pliku reprezentowanego przez OutFiłe danych przypisanych ele— 
mentom Arr/ar[falsel i ArrVar[true] tablicy ArrvVar. 

e zastąpienie przytoczonej instrukcji Write instrukcją 

WriteCOutFile, ArrVarD>; 
byłoby niepoprawne, ponieważ sama nazwa tablicy nie stanowi 
wyszczególnienia jej elementów. a 
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Procedura Seek 


wywołanie: SeekC(FileVar,PosExpD 

Przyjmuje się, że FileVar jest nazwą zmiennej plikowej, 
a PosExp jest wyrażeniem typu integer. Wymaga się, aby plik 
reprezentowany przez zmienną FileVar był otwarty.  źabrania 
się, aby wartość wyrażenia PosExp wykraczała poza przedział 
domknięty [O0O,FileStzeC(FileVar>l. 

Wykonanie procedury Seek powoduje ustawienie pliku w 
takiej pozycji, aby najbliższym elementem pliku był element o 
numerze porządkowym określonym przez wartość wyrażenia Pos- 
Exp. Jeśli wyrażenie to ma wartość O, to plik zostanie usta— 
wiony w pozycji początkowej, a jeśli ma wartość  FiłeStze(Fi- 
leVar>, to zostanie ustawiony w pozycji końcowej. 


Przykład 

type 
Name = stringl5]; 

var 
FileVar file of Name; 
ElmVar1i  Elmvar2 Name; 
Len, Pos integer; 

begin 


AssignCFiłeVar, FAMIŁY 0); 
Reset(CFilevarD>; 
Łen := FiłeSizeClFilevVar> — 1; 
for Pos := O to Len shr 1 do begin 
Seek(FileVar ,Pos); 
ReadCFileVar ,ElmVar1D; 
Seek(FileVar,Len — Pos); 
Read(FileVar ,ElmvVar2); 
Seek(FiłeVar , Pos); 
wWriteCFileVar ,Elmvar20>; 
Seek(FileVar, Len - Pos); 
WriteCFileVar ,ElmvVar1iD) 
end; 
CłoseC(FileFar) 
end. 


e Wykonanie przytoczonego programu powoduje odwrócenie 
porządku elementów zbioru FAMIŁY. 

e Otwarcie pliku reprezentowanego przez zmienną FzleVar 
zrealizowano za pomocą procedury Keset, ponieważ użycie pro— 
cedury Rewriżte spowodowałoby utratę zawartości zbioru FAMIŁY. 

m 
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Procedura Close 


Wywołanie: Cłose(FileFar)> 

Przyjmuje się, że FileVar jest nazwą zmiennej pliko- 
wej. Nie wymaga się, aby plik reprezentowany przez zmienną 
FileVar był otwarty. 

Wykonanie procedury Cłose powoduje zamknięcie pliku re— 
prezentowanego przez zmienną Fiłevrar. jeśli przed wykonaniem 
tej procedury plik nie był otwarty, to jego stan nie zmienia 
się. 

Należy nadmienić, że zakończenie wykonywania programu 
nie implikuje domniemanych wywołań procedury Cłose. 


Przykład 
var 
NevFile : file of boolean; 
begin 
ASsignCNewFile, EMPTY 'D; 
Revrite(NevFile); 
CłoseC(NevFile) 

end. 

e Wykonanie przytoczonego programu pozostawia na dys— 
kietce, umieszczonej w domniemanej stacji dyskowej, pusty 
zbiór EMPTY. 

e W przyszłości zbiór ten może być wypełniony elementa— 
mi typu boolean. a 


Procedura Erase 


wywołanie: Erase(FileFarD) 

Przyjmuje się, że FileVar jest nazwą zmiennej plikowej. 
Zaleca się, aby plik reprezentowany przez zmienną FilłeVar nie 
był otwarty. 

Wykonanie procedury Erase powoduje usunięcie zbioru da— 
nych skojarzonego z plikiem reprezentowanym przez zmienną 
Filevar. 


Przykład 
var 
KillFile : file of byte; 
begin 
AssignCKilLFile, SECRET. DOC'D>; 
EraseCkiliFile) 
end. 


e Wykonanie przytoczonego programu powoduje usunięcie z 


Podprogramy 81 


dyskietki, umieszczonej w domniemanej stacji dyskowej, zbioru 
SECRET. DOC. 

e Operacja dotyczy pliku skojarzonego ze zbiorem danych, 
ale nie otwartego. 

e Typ elementów pliku reprezentowanego przez zmienną 
plikową KiłiFile jest bez znaczenia. OJ 


Procedura Rename 


Wywołanie: Rename(FileVvar, StrExpD 

Przyjmuje się, że FiłeVar jest nazwą zmiennej plikowej, 
a StrExp jest wyrażeniem łańcuchowym. Zabrania się, aby plik 
reprezentowany przez zmienną FiłeVar był otwarty. 

Wykonanie procedury Rename powoduje zmianę nazwy zbioru 
danych skojarzonego z plikiem reprezentowanym przez FileVar 
na nazwę określoną za pomocą wyrażenia łańcuchowego StrExp. 
wymaga się, aby ciąg znaków reprezentowany przez  StrExp Dył 
poprawną nazwą zbioru, pozbawioną określenia stacji dyskowej, 
a ponadto aby nie był nazwą zbioru już istniejącego. Zabrania 
się, aby plik reprezentowany przez FiłeVar był otwarty. 


Przykład 
var 
RenFile : file of byte; 
begin 
AssignCRenFile, SECRET. DOC” >; 
RenamećRenfile, SECRET. BAK "DV 
end. 


e Wykonanie przytoczonego programu powoduje zmianę naz— 
wy zbioru SECRET.DOC na nazwę SECRET. BAK. 

e Typ elementów pliku reprezentowanego przez zmienną 
plikową jest bez znaczenia. a 


Funkcja Eof 


wywołanie: EojfCFilevar> 

Przyjmuje się, że FileV/ar jest nazwą zmiennej plikowe j. 
Wymaga się, aby plik reprezentowany przez FileVar był otwar- 
ty. 

Rezultatem funkcji Eof jest dana o wartości true — jeś- 
li plik reprezentowany przez zmienną FiłeVar znajduje się w 
pozycji końcowej, albo dana o wartości false — w przeciwnym 
razie. 


Przykład 
var 
FileVar : file of byte; 
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begin 
AssitgnCFilłeVar, USELESS. DOC”); 
RevuriteC(FilevVar)>; 
WritełnCEofCFileVarD>> 

end. 


e Bezpośrednio po wykonaniu procedury KRewrtite plik 
znajduje się zarówno w pozycji początkowej, jak i końcowej. 
e Wykonanie instrukcji 
WritelnCEofCFileVar>> 
powodu je wyprowadzenie napisu TRUE. m 


Funkcja FileSize 


Wywołanie: FileStzeC(FilevVvar> 

Przyjmuje się, że Filevar jest nazwą zmiennej plikowe j. 
Wymaga się, aby plik reprezentowany przez FileVar był otwar— 
ty. 

Rezultatem funkcji FiłeSize jest dana typu integer. 
Wartością tej danej jest liczba elementów pliku  reprezento— 
wanego przez zmienną FileFar. 


Przykład 

var 
FilevVar : file of 2..4; 

begin 
AsstgnCFileVar, USEŁESS. DOC” 2); 
RevuriteC(FilevarD); 
WritelnCFileSizećlFilevVar»>.> 

end. 


e Bezpośrednio po wykonaniu procedury Revrite plik re-— 
prezentowany przez zmienną FileFar jest pusty. 

e Ponieważ plik pusty zawiera 0 elementów, wykonanie 
przytoczonego programu powoduje wyprowadzenie liczby O. m 


Funkcja FilePos 


Wywołanie: FilePos(FilevVarD> 

Przyjmuje się, że FileVar jest nazwą zmiennej plikowej. 
wymaga się, aby plik reprezentowany przez FilevVar był otwar— 
ty. 

Rezultatem funkcji FilePos jest dana typu integer. War— 
tością tej danej jest numer pozycji pliku reprezentowanego 
przez zmienną FiłeVar. Numerem pozycji początkowej jest 0, a 
numerem pozycji końcowej jest FiłeSizeCFileFaro. 


Pliki tekstowe a3 


Przykład 

var 
FileVar file of CRed,Green,Blue); 

begin 
AssignCFileVar,  COŁORS”); 
Reset(FileVar); 
Seek(FileSize(Filevar>); 
Writeln(FilePos = 02 

end. 


e Jeśli zbiór COŁORS jest pusty, Ło wykonanie przyto— 
czonego programu spowoduje wyprowadzenie napisu TRUE. 

e W przeciwnym razie nastąpi wyprowadzenie napisu FAŁSE 

| 


12.2. PLIKI TEKSTOWE 


W odróżnieniu od pozostałych plików pliki tekstowe nie 
składają się z sekwencji identycznych elementów tego samego 
typu, lecz składają się z wierszy podzielonych na znaki. Każ— 
dy wiersz pliku tekstowego jest zakończony parą znaków CR/LF 
(carriage return/line feed». Bezpośrednio po ostatnin wierszu 
pliku występuje znak Ctr1l-Z. 

Ponieważ wiersze pliku mogą być różnej długości, prze- 
twarzanie pliku może być jedynie sekwencyjne, plik zaś może 
zostać otwarty tylko do wyprowadzania CRewrite)> albo tylko do 
wprowadzania (Reset). 

Opis typu plikovego tekstowego składa się z predefinio= 
wanego identyfikatora text. 


Składnia 
opis-typu-pl ikovego-tekstowego: 
text 


Przyktad 
type 
TextType = text; 
var 
OQutFile : TextType; 
InpFiłe : text; 


e Typ TextType jest związąny ze zbiorem sekwencji wier- 
szy podzielonych na znaki i zakończonych znakami CR-LF. 

© Zmienne plikowe OutFile i InpFile reprezentują pliki 
.ekstowe. | 
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w języku Turbo Pascal komunikowanie się z takimi urzą— 
dzeniami zewnętrznymi jak konsole, terminale, drukarki i mo— 
demy odbywa się za pomocą plików tekstowych. Pliki te stano-— 
wią zatem modele fizycznych zbiorów danych dostępnych za  po— 
mocą tych urządzeń. 

Urządzenia zewnętrzne wymienionych tu typów mają swoje 
symboliczne oznaczenia, składające się z trzyliterowej mnemo— 
niki i znaku : (dwukropek). 


CON: — Ronsola 


Konsola jest urządzeniem wejściowo-wy jściowym.  Elemen— 
tem wyjściowym konsoli jest ekran monitora, a elementem we jś— 
ciowym — klawiatura. Wprowadzenie danych z konsoli jest bufo- 
rowane. Oznacza to, że.dane są wprowadzane z konsoli pełnymi 
wierszami i dopiero po wprowadzeniu całego wiersza, stanowią— 
ce go znaki podlegają przetwarzaniu. Ponieważ każdy wiersz 
jest kończony znakiem CR, możliwe jest wprowadzenie z konsoli 
ciągu znaków, a następnie — ale przed wprowadzeniem znaku CR 
-— poddanie go edycji. Edycja może być realizowana za pomocą 
następujących znaków. 

Gtr1-H: 

Usunięcie znaku znajdującego się z lewej strony kursora i 
przesunięcie kursora o jedną pozycję w lewo. 

Gtr1l-X: 

Usunięcie wszystkich znaków znajdujących się z lewej strony 
kursora i przesunięcie kursora do pierwszej kolumny wiersza. 


GŁr1-D: 
Wstawienie na pozycję kursora jednego znaku z poprzedniego 
wiersza i przesunięcie kursora o jedną pozycję w prawo. 


Gtr1l-R: 
Wstawienie, począwszy od pozycji kursora, pozostałych znaków 


poprzedniego wiersza i przesunięcie kursora w prawo za ostat— 
ni wstawiony znak. 


CR, Ctrl-M: 
zakończenie wprowadzania wiersza i umieszczenie w buforze 
wejściowym pary znaków CK_LF. 

Gtrl-ż: 
Zakończenie wprowadzania wiersza i umieszczenie w buforze 


wejściowym znaku Ctrl-2z. 


Należy nadmienić, że rozmiar bufora wejściowego konsoli 
jest określony przez predefiniowaną zmienną  Bufien. ZATÓWNO 
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maksymalną, jak i domniemaną wartością tej zmiennej jest 127. 
Ustalenie nowej wartości zmiennej BufLen jest skuteczne  je— 
dynie w odniesieniu do najbliższej instrukcji wprowadzania. 
Bezpośrednio po wykonaniu każdej takiej instrukcji zmienna 
BufLen otrzymuje ponownie wartość 127. 


TRM: — terminal 


Terminał jest urządzeniem wejściowo-wy jściowym. Elemen— 
tem wyjściowym terminala jest ekran monitora, a elementem 
wejściowym — klawiatura. W odróżnieniu od konsoli wprowadza— 
nie danych z terminala nie jest buforowane. Oznacza to, że 
każdy wprowadzany znak natychmiast podlega przetwarzaniu. 
Jednocześnie ze skierowaniem do przetwarzania znak jest wy- 
prowadzany na ekran. Spośród znaków sterujących dotyczy to 
jednak tylko znaku CR, który jest wyprowadzany jako para 
GRZLF. 


KBD: — klawiatura 
Kłaviatura jest urządzeniem wejściowym. Znaki wprowa— 
dzane z urządzenia KBD: pochodzą z elementu wejściowego 


konsoli, nie podlegają buforowaniu i nie są wyprowadzane na 
ekran. 


LST: -— drukarka 


Drukarka jest urządzeniem wyjściowym. Wyprowadzane zna— 
ki nie podlegają buforowaniu w systemie, ale mogą być buforo— 
wane w drukarce. 


Skojarzenie pliku z urządzeniem logicznym może być  do- 
konane za pomocą procedury 4Assign, w której wywołaniu jest 
podawana nazwa zmiennej plikowej oraz wyrażenie łańcuchowe 
określające nazwę urządzenia logicznego. W odróżnieniu od 
skojarzenia pliku ze zbiorem, skojarzenie pliku z urządzeniem 
logicznym pociąga za sobą niejawne otwarcie pliku. Z tego 
względu posłużenie się procedurami Reset i Rewrite jest zby- 
teczne, a ich wykonanie, podobnie jak wykonanie procedury 
Cłose, nie ma żadnych skutków. Błędne jest natomiast posłuże— 
nie się takimi procedurami jak Erase i Rename, gdyż można je 
stosować jedynie w odniesieniu do zbiorów danych w pamięci 
dyskowe j. 


Typy plikove 86 


Przykład 
var 
Console : text; 


ASssign(Consołe, "GON: *>; 


e Wykonanie procedury Asstgn Spowoduje skojarzenie pli— 
ku tekstowego reprezentowanego przez zmienną plikową Console 
z urządzeniem logicznym CON: , tj. konsolą, a następnie nie ja— 
wne otwarcie tego pliku. 

e Ponieważ wykonanie procedury Cłose dotyczącej pliku 
skojarzonego z urządzeniem logicznym nie ma żadnych skutków, 
zamknięcie rozpatrywanego pliku tekstowego byłoby możliwe do- 
piero po *ykonaniu innej procedury Assign dotyczącej zmienne j 
Consołe, np. 

AssigniConsole, "KBD: ”D; a 


W celu ułatwienia posługiwania się plikami skojarzonymi 
z urządzeniami logicznymi wprowadzono w Turbo Pascalu wiele 
predefiniowanych zmiennych plikowych, reprezentujących pliki 
tekstowe i dokonano niejawnych skojarzeń tych plików z wybra-— 
nymi urządzeniami logicznymi. 


Tablica 12.1. Skojarzenia plików tekstowych i 
urządzeń logicznych 


Zmienna plikowa Urządzenie logiczne 


albo TRM: 
albo TRM: 


Jak wynika z tablicy 12.1 z predefiniowanymi nazwami 
zmiennych plikowych są związane ustalone urządzenia logiczne. 
Wyjątek od tej zasady dotyczy zmiennych plikowych Input i 
Output, z których każda może reprezentować plik skojarzony z 
urządzeniem CON: albo z urządzeniem TRM:. 

wybór GON: albo TRM: odbywa się na podstawie dyrektywy 
kompilatora €$8+»> albo 4$8->. Przez domniemanie przyjmuje się 
<8$B+>, kiedy to plik reprezentowany przez Input jak i przez 
Qutput jest kojarzony z urządzeniem GON:. w zasięgu dyrektywy 
<%B-»> odbywa Się natomiast skojarzenie z urządzeniem TRM:. 

Należy zwrócić uwagę, że pliki reprezentowane przez wy— 
mienione zmienne plikowe są zawsze otwarte, a operacje na 
nich dotyczą ustalonych urządzeń logicznych. 
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Przykład 
begin 
wWritelnCCon, Hello world” 
end 


© Con jest predefiniowaną zmienną plikową,  reprezentu— 
jącą plik skojarzony z konsolą. 

e wykonanie przytoczonego programu powoduje wyprowadze— 
nie na konsolę napisu Hełło worład. m 


12.3. OPERACJE NA PLIKACH TEKSTOWYCH 


Jak już wyjaśniono, pliki tekstowe składają się z wier- 
szy podzielonych na znaki. Każdy wiersz jest zakończony parą 
znaków CR/LF, a ostatnim znakiem pliku jest Ctrl-ź. Znak ten 
jest umieszczany w pliku otwartym do wyprowadzania lub roz 
szerzania — w chwili zamykania pliku. 

Pliki tekstowe mogą być kojarzone ze zbiorami danych 
albo z urządzeniami logicznymi. W pierwszym przypadku prze— 
twarzanie danych zawartych w pliku musi być poprzedzone wyko— 
naniem procedury Assign, a następnie procedury Reset albo Ke— 
write. Na zakończenie tego przetwarzania powinna być wykonana 
procedura Cłose. W drugim przypadku, tj. skojarzenia pliku z 
urządzeniem, można posłużyć się predefiniowaną zmienną pliko— 
wą. W takim przypadku zabrania się wykonania procedur Asstign, 
Reset, Reurite, Cłose dotyczących tej zmiennej, albo też moż— 
na potraktować urządzenie tak jakby było zbiorem danych o na— 
zwie symbolicznej urządzenia, posłużyć się procedurą  ASSign 
dla skojarzenia pliku z urządzeniem, a następnie przystąpić 
do przetwarzania pliku. 


Procedura ASSign 


Wywołanie: AssignCTextVar,StrExpD> 

Przyjmuje się, że TextVar jest nazwą zmiennej plikowej 
typu łext, a StrExp jest wyrażeniem łańcuchowym. Wymaga się, 
aby plik reprezentowany przez TextVar nie był otwarty. zabra— 
nia się, aby TextVar było nazwą predefiniowanej zmiennej 
plikowe j. 

Wykonanie procedury Assign powoduje skojarzenie pliku 
reprezentowanego przez zmienną TextVar ze zbiorem danych albo 
z urządzeniem logicznym o nazwie określonej przez wartość 
danej reprezentowanej przez wyrażenie StrExp. 
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Przykład 
var 
Device : text; 


Assitgn(Device, "GON: ”); 


e Zmienna plikowa Device reprezentuje plik tekstowy. 

e Wykonanie procedury Assign powoduje skojarzenie pliku 
reprezentowanego przez zmienną Device z konsolą. 

e Wykonanie procedury Asstgn powoduje otwarcie pliku 
reprezentowanego przez zmienną Device. m 


Procedura Reset 


Wywołanie: Reset(TextFar) 

Przyjmuje się, że TextVar jest nazwą zmiennej plikowej 
typu text. Wymaga się, aby przed wywołaniem procedury Reset 
plik reprezentowany przez zmienną TextVar był skojarzony z 
istniejącym zbiorem danych albo z urządzeniem logicznym.  Za— 
brania się, aby TextVar było nazwą predefiniowanej zmiennej 
plikowej. 

Wykonanie procedury Reset powoduje otwarcie pliku re- 
prezentowanego przez zmienną TextVar. jeśli plik reprezento— 
wany przez TextFar jest skojarzony z urządzeniem logicznym, 
to jest już otwarty i użycie procedury Keseż nie ma żadnych 
skutków. 


Przykład 
var 
InpFile : text; 


AssignCInpFile, 'OLDBOOK >; 
Reset(InpFile)>; 

e Wykonanie procedury Assign powoduje skojarzenie pliku 
tekstowego reprezentowanego przez zmienną InpFile ze zbiorem 
OŁDBOOK. 

e Wykonanie procedury Reset powoduje otwarcie pliku 
tekstowego reprezentowanego przez zmienną InpFile w trybie do 
wprowadzania. a 


Procedura Revrite 


Wywołanie: RewriteCTextVar) 
Przyjmuje się, że TextVvar jest nazwą zmiennej plikowej 
typu text. Wymaga się, aby przed wywołaniem procedury KRewrite 
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plik reprezentowany przez zmienną TextVar był skojarzony ze 
zbiorem danych albo z urządzeniem logicznym. Zabrania się, 
aby TextVar było nazwą predefiniowanej zmiennej plikowej. 

Wykonanie procedury Rewvwrite powoduje otwarcie pliku re— 
prezentowanego przez zmienną TextVar. Jeśli plik reprezento— 
wany przez TextVar jest skojarzony z urządzeniem logicznym, 
to jest już otwarty i użycie procedury Kevrite nie ma żadnych 
skutków. jeśli plik reprezentowany przez TextVar jest skoja— 
rzony ze zbiorem danych, a zbiór ten nie istnieje, to zosta— 
nie utworzony. Jeśli istnieje, to zostanie usunięty i utwo— 
rzony ponownie. W obu przypadkach zostanie utworzony zbiór 
pusty. 


Przykład 
var 
OutFile : text; 


AsstgnCOutFile, NEWBOOKR DD; 
RevriteCOutFile)>; 

e Wykonanie procedury Assign powoduje skojarzenie pliku 
tekstowego reprezentowanego przez zmienną OutFile ze zbiorem 
NEWBOOK. 

e Wykonanie procedury Kewrite powoduje otwarcie pliku 
reprezentowanego przez zmienną OutFile w trybie do wyprowa— 
dzania. Po dokonaniu otwarcia plik reprezentowany przez tę 
zmienną jest pusty. e 


Procedura Read 


Wywołanie: Read(TextFar , VarŁist) 

Przyjmuje się, że TextVar jest nazwą zmiennej plikowej 
typu text, a FarŁisłt jest nazwą zmiennej albo listą nażw 
zmiennych typu char, string, integer lub real. Jeśli TextVar 
jest nazwą Input, to wywołanie może zostać uproszczonę do 
ReadCVarList>. Jeśli wywołanie z jawną albo domniemaną nazwą 
Input znajduje się w zasięgu dyrektywy ($B+>, to jest trakto— 
wane tak, jakby TextVar było nazwą Con. Jeśli znajduje się w 
zasięgu dyrektywy ($B-), to jest traktowane tak, jakby było 
nazwą Trm. W każdym przypadku wymaga się, aby plik  reprezen— 
Łowany przez zmienną TextVar był otwarty. 

Wykonanie procedury Read powoduje wprowadzenie ciągu 
znaków z pliku reprezentowanego przez zmienną TextVar, zin-— 
terpretowanie ich jako umownych zapisów wartości danych, a 
następnie przypisanie danych o tych wartościach zmiennym  re— 
prezentowanym przez VFarżList. 

Należy nadmienić, że jeśli wprowadzanie dotyczy urzą— 
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dzenia logicznego GON:, Ło każde wykonanie procedury Read 
powoduje wprowadzanie nowego wiersza tekstu, i to nawet wów 
czas, gdy w buforze konsoli pozostają nie wprowadzone jeszcze 
znaki. W takim przypadku interpretowanie znaków bufora 
następuje dopiero po zakończeniu wiersza znakiem CR, a ewen- 
tualne wcześniejsze wprowadzenie znaku Ctrl-Z jest  ignorowa— 
ne. Znak taki jest zawsze umieszczany na końcu bufora, ale 
dopiero po wprowadzeniu znaku CR. 

Sposób interpretowania znaków pliku reprezentowanego 
przez zmienną TextVar zależy od typu zmiennych VarŁist. 


Dla zmiennych typu char: 
wprowadzany jest jeden znak i przypisywany zmiennej. 


Dla zmiennych typu string: 
wprowadzany jest najdłuższy dopuszczalny ciąg znaków i przy— 
pisywany zmiennej. Liczba wprowadzonych znaków nie przekracza 
maksymalnego rozmiaru zmiennej łańcuchowej, ani nie jest 
większa niż liczba znaków bieżącego wiersza. 


Dla zmiennych typu integer: 

Wprowadzany jest ciąg znaków mający postać liczby całkowitej, 
po którym następuje jeden ze znaków: spacja, tabulacja, CR 
albo Gtrl-Z. Znaki spacji, tabulacji, CR i LF poprzedza jące 
wspomnianą liczbę są ignorowane. Następnie dana o wartości 
wprowadzonej liczby zostaje przypisana kolejnej zmiennej 
VarList. Jeśli wprowadzony ciąg znaków ma inną postać niż wy- 
nika to z opisu, to powstaje błąd wykonania operac ji 
wejścia/wy jścia. 


Dla zmiennych typu real: 

wprowadzany jest ciąg znaków mający postać liczby  rzeczywis— 
tej, po której następuje jeden ze znaków: spacja, tabulacja, 
GR albo Gtrl-Z. Znaki spacji, tabulacji, CK i LF poprzedza ją” 
ce liczbę są ignorowane. Następnie dana o wartości wprowadzo- 
nej liczby zostaje przypisana kolejnej zmiennej VarŁisłt. Jeś- 
li wprowadzony ciąg znaków ma inną postać niż wynika to z 
opisu, to powstaje błąd wykonania operacji wejścia/wy jścia. 


Przykład 
var 
IntVar : integer; 
FixVar : real; 


TextVar : text; 
Ter1  Ter2 : char; 
Str : stringl8]; 
begin 
AssignCTextVar, ONELINE. DOC >; 
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Reset(TextVar); 
Read(TextVar,IntVar,Ter1i, FixVar ,Ter2,StrD); 


end. 


e jeśli przyjąć, że pierwszym wierszem tekstu zawartym 

w zbiorze ONEŁINE. DOC jest ciąg 

12 —13.8 Izabela 
to zmiennej łntVar zostanie przypisana dana o wartości 12, 
zmiennej FixVar dana o wartości —13.8, a zmiennej Str dana o 
wartości "Izabela. 

e Każdej ze zmiennych Ter1 i Ter2 zostanie przypisana 
spacja. Oznacza to, że znak kończący liczbę podlega podwó jnej 
interpretacji, jako ostatni znak zapisu liczby i jako pierw—- 
szy znak ciągu następu jącego po liczbie. 

e Gdyby w rozpatrywanym ciągu dokonać zmiany znaku — 
(minus> na + (plus>, Ło podczas wykonywania procedury Read 
powstałby błąd operacji wejścia/wyjścia. Wynika to z faktu, 
że +13.8 nie jest poprawnym literałem liczbowym. a 


Jeśli podczas wykonywania procedury Read plik znajdzie 
się w pozycji końcowej, a nie wszystkim zmiennym VarŁist zos— 
tały już przypisane dane, to każdej zmiennej typu char 
zostanie przypisany znak Ctrl-ź, każdej zmiennej typu string 
zostanie przypisany pusty ciąg znaków, a. zmiennym typu 
integer i real nie zostaną przypisane żadne dane. 


Przykład 

var 
IntVar : tnteger; 
FixVar : reał; 
TextVar : text; 
Teri ,Ter2 : char; 
Str : stringl4]; 

begin 
IntVar := —44; 
FixVar := —44; 


StrVar := ” janb'; 
Terl := x"; 

Ter2 := yy; 
AssignCTextVar, SHORT. DOC”); 
Reset(TextFar)>; 

ReadCTextVar, IntVar,Teri , FixVar,rTer2,StrD; 


end. 


e Jeśli przyjąć, że zbiór SHORT.DOC składa się ze zna— 
ków: 1, 3, spacja, GR, LF, Ctrl-ź, to po wykonaniu instrukcji 
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Read zmienna Int/ar ma wartość 13, zmienna FixVar ma wartość 
—44.0, zmienna Teri ma wartość 432 (spacja, zmienna T[er2 ma 
wartość 42ó (Gtrl-Z>, a zmienna Str ma wartość ””. a 


Należy nadmienić, że jeśli plik jest skojarzony z kon- 
solą, to na końcu każdego wprowadzanego wiersza jest umiesz- 
czany znak Gtrl-ź. Ma to taki skutek, jakby przed końcem każ—- 
dego wiersza plik znajdował się w pozycji końcowej. 


Przykład 
var 
Int/ar : integer; 
StrVar : stringl3]; 
ChrVar : char; 
begin 


IntVar := —2; 

StrVar := "jan; 

ChrVar := ”b>; 
Read(IntVar,StrVar,ChrVarD>; 


end. 


e Wywołanie procedury Read jest interpretowane tak jak 

wywołanie 
Read Input , IntVar,StrVar ,ChrVar)>; 

e Ponieważ wymienione wywołanie znajduje się w zasięgu 
domniemanej dyrektywy <$B+)>, więc jest interpretowane tak jak 
wywołanie 

ReadXCon, Int/ar,StrVar,ChrVar)>; 

e jeśli podczas wykonywania procedury Read zostanie 
wprowadzony z konsoli tylko jeden znak CR, to spowoduje to 
zakończenie wykonywania tej instrukcji. W tym momencie zmien— 
na IntVar będzie miała wartość —2, zmienna StrVar -— wartość 
>>. a zmienna ChrVar — wartość 426 (Gtrl-Z). m 


Procedura Readln 


Wywołanie: Readln(CTextVar> 
ReadlnCTextVar ,VarżistD 

Przyjmuje się, że TextF/ar jest nazwą zmiennej plikowej 
typu text, a FarŁist jest nazwą zmiennej albo listą nazw 
zmiennych typu char, string, tinteger lub reał. Jeśli TextVar 
jest nazwą Input, to wywołanie w pierwszej postaci może być 
uproszczone do Readln, a w drugiej do Keadln(CfarList). 

wywołanie procedury Readln w postaci  Readln(CTextVar> 
powoduje wprowadzenie i zignorowanie ciągu znaków pliku aż do 
GR.ZLF włącznie. Jeśli plik jest skojarzony z urządzeniem  lo- 
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gicznym, Ło są pomijane znaki tylko do CR włącznie. Jeśli 
TextVar reprezentuje konsolę, to na ekran monitora zostaną 
wyprowadzone znaki CGR/LF. Natomiast wywołanie tej procedury w 
postaci 

ReadlnCTextVar,FarŁist). 
jest równoważne parze wywołań 

ReadCTextvVar,VarList»>; ReadlnCTextVar> 
i z Łego powodu nie wymaga dodatkowych wyjaśnień. 


Przykład 
var 
Count : tnteger; 
Source : text; 
Line : stringl128]; 
begin 


ASsignćSource, VOLUME. DOC”); 

Reset (Source); 

Count := 0; 

while not EofCSource)> do begin 
Readln(Source,Line); 
Count := Count + 1 

end; 

Writeln(CCount) 

end. 


e Wykonanie przytoczonego programu powoduje wyznacze— 
nie liczby wierszy zbioru danych WFOŁUME. DOC. a 


Procedura Write 


wywołanie: WriteC(TextvVar ,ExpListD 

Przyjmuje się, że TextVar jest nazwą zmiennej plikowej 
typu text, a ExpŁist jest wyrażeniem albo listą wyrażeń typu 
char, string, integer, real lub boolean. Bezpośrednio po każ— 
dym z wymienionych wyrażeń może wystąpić kwalifikator o pos— 
Łaci :m, a po wyrażeniu typu real także kwalifikator o posta— 
ci :m:n, w którym m i n są wyrażeniami typu integer. Jeśli 
TextYar jest nazwą Output, to wywołanie może zostać uprosz— 
czone do WriteCExpList>. Wywołanie z jawną albo domniemaną 
nazwą Output jest traktowane tak, jakby TextVar było nazwą 
Con Club równoważną jej w danym kontekście nazwą Trm. w 
każdym przypadku wymaga się, aby plik reprezentowany przez 
zmienną Text/ar był otwarty. 

wykonanie procedury Write powoduje wyprowadzenie do 
pliku reprezentowanego przez zmienną Text/ar ciągu znaków 
składającego się z umownych zapisów wartości danych reprezen- 
towanych przez wyrażenia ExpżŁist. 
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Sposób tworzenia znaków wspomnianego ciągu zależy od 
typu wyrażeń ExpŁist oraz od wartości kwalifikatorów m i n. 


Dla wyrażeń typu char: 
Wyprowadzany jest znak reprezentowany przez wyrażenie. Jeśli 
posłużono się kwalifikatorem m, a m>1, to znak ten zostanie 
poprzedzony m-1 spacjami. 


Dla wyrażeń typu string: 
wyprowadzany jest ciąg znaków reprezentowany przez wyrażenie. 
Jeśli posłużono się kwalifikatorem m, a m jest większe niż 
liczba ł znaków tego ciągu, to ciąg ten zostanie poprzedzony 
m-ł spacjami. 


Dla wyrażeń typu znteger: 
Wyprowadzany jest ciąg znaków o postaci najkrótszego literału 
reprezentującego wartość wyrażenia. Jeśli posłużono się kwa— 
lifikatorem m, a m jest większe niż liczba ł znaków wspomnia— 
nego literału, to ciąg ten zostanie poprzedzony m-ł spacjami. 


Dla wyrażeń typu real: 

wyprowadzany jest ciąg znaków o postaci bsd.ddddddddddEsdd 
reprezentujący wartość wyrażenia. W ciągu tym > jest spacją, 
a pierwsze s jest znakiem przedstawianym jako spacja dla wy- 
rażenia o wartości nieujemnej, a jako znak — (minus> dla wy-— 
rażenia o wartości ujemnej. Każde d reprezentuje w tym ciągu 
cyfrę dziesiętną, a drugie s jest znakiem + (plus> albo — 
minus». jeśli posłużono się kwalifikatorem m, a m>18, to 
przedstawiony ciąg znaków zostanie dodatkowo poprzedzony m-18 
spacjami. Jeśli m=18, to zostanie wyprowadzony ciąg wzorcowy 
podany na początku opisu, jeśli natomiast m<18, to _ wyprowa— 
dzany ciąg zostanie skrócony do m znaków, pochodzących z cią— 
gu wzorcowego przez odrzucenie z niego w pierwszej kolejności 
spacji wiodących, a następnie końcowych cyfr mantysy, ale z 
zaokrągleniem. jeśli wartość m jest taka, że wymagałoby to 
pozostawienia mniej niż 2 cyfr mantysy, to poprzestaje się na 
odrzuceniu cyfry trzeciej i następnych, także z  zaokrągle— 
niem. Jeśli posłużono się kwalifikatorem o postaci :m:n, to 
jest wyprowadzany ciąg znaków mający postać literału rzeczy— 
wistego bez wykładnika, z n cyframi ułamkowymi, wyrównanego 
prawostronnie w ciągu o długości m znaków. Jeśli wspomniany 
literał nie da się przedstawić za pomocą ciągu o tej liczbie 
znaków, to m zostaje niejawnie zwiększone o tyle, aby było to 
wykonalne. Należy przy tym uwzględnić, że jeśli n=O0, to lite— 
rał jest wyprowadzany również bez części ułamkowej i kropki, 
a jeśli n nie należy do przedziału domkniętego [0,24], to 
kwalifikator :m:n jest traktowany tak jak uprzednio opisany 
kwalifikator :m. 
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Dla wyrażeń typu boolean: 
wyprowadzany jest ciąg znaków o postaci TRUE albo FALSE, re- 
prezentujący wartość wyrażenia. Jeśli posłużono się kwalifi— 
katorem m, a m jest większe niż liczba ł znaków tego ciągu, 
Ło ciąg zostanie poprzedzony m-l spac jami. 


Przykłady (symbol b oznacza spac ję) 


wyrażenie Ciąg wyprowadzany 
"3" J 

3:2 bj 

> jan” jan 

> jan':4 b jan 

44 44 

—44 —44 

44: 4 bb4 4 

23.5 bb2. 3500000000E+01 
23.456789:10 2.3457E+01 
23.4567/89:6 2.3E+01 
23.456789:6:2 b23.46 
—23.456789:6:0 bbb-23 
23.456789:6:-2 2.3E+01 


e Jak wynika z przykładów, zaokrąglenie jest dokonywane 
na podstawie pierwszej cyfry odrzucanej. m 


Procedura Writeln 


wywołanie: WritelnCTextFar> 
WritelnCTextVar ,ExpŁistD) 

Przyjmuje się, że TextVar jest nazwą zmiennej plikowej 
typu text, a ExpŁist jest nazwą zmiennej albo listą nazw 
zmiennych typu char, string, integer, real lub boolean.  Bez— 
pośrednio po każdym z wymienionych wyrażeń może wystąpić kwa— 
lifikator o postaci :m, a po wyrażeniu typu real także kwali— 
fikator o postaci :m:n, gdzie m i n są wyrażeniami typu inte- 
ger. Jesli TextVar jest nazwą Output, to wywołanie w pierw— 
szej postaci może być uproszczone do Writełn, a w drugiej do 
WritelłnCExpLiStO). 

wywołanie procedury Writełn o postaci Writeln(TextVarD 
powoduje wyprowadzenie do pliku reprezentowanego przez zmien— 
ną TextVar pary znaków CR/LF. Natomiast wywołanie tej proce— 
dury w postaci 

WritelnCTextVar ,ExpList) 
jest równoważne parze wywołań 
WriteCTextVar  ExpList>; WritelnCTextVar); 
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i z tego powodu nie wymaga dodatkowych wyjaśnień. 


Przykład 
begin 
wWritelncfalse); 
Writeln; 
Writeln(true) 
end. 


e Wykonanie przytoczonego programu powoduje wyprowadze— 
nie na konsolę 3 wierszy tekstu. 

e Drugi z wyprowadzonych wierszy jest pusty. 

e Ogółem zostanie wyprowadzonych 15 znaków, w tym napi- 
sy FAŁSE i TRUE oraz dwie pary znaków CR.LF. m 


Procedura Close 


Wywołanie: Cłose(TextVar) 

Przyjmuje się, że TextVar jest nazwą zmiennej plikowej 
typu text. Zabrania się, aby TextVar było nazwą predefiniowa— 
nej zmiennej plikowej. 

wywołanie procedury Cłose powoduje zamknięcie pliku re— 
prezentowanego przez zmienną plikową TextVar. 


Przykład 

var 
Output : text; 

begin 
Assign(Output , JB. DOC”); 
Revrite(Output); 
WritelnCOutput, jasio ' ); 
Cłose(Out put) 

end. 


e Wobec jawnej deklaracji nazwa OQutpuł nie jest nazwą 
predefiniowanej zmiennej plikowej, więc wywołanie procedury 
Assitgn jest poprawne i niezbędne. 

e Wykonanie przytoczonego programu powoduje utworzenie 
zbioru zawierającego 8 znaków. 

e wywołanie procedury Cłose powoduje wyprowadzenie zna— 
ku GrŁrl-Z oraz wykonanie czynności kończących utworzenie 
zbioru JB.DOC zawierającego ciąg znaków: jasio CR LF Gtrl-2. 

u 


Funkcja Eof 


Wywołanie: Eof<TextVar) 
Przyjmuje się, że TextVvar jest nazwą zmiennej plikowej 
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typu text. jeśli TextVar jest nazwą Input, to wywołanie może 
być uproszczone do EŁof. 

Wywołanie funkcji Eof może dotyczyć zarówno pliku sko— 
jarzonego ze zbiorem danych, jak i pliku skojarzonego z urzą— 
dzeniem logicznym. W obu przypadkach rezultatem funkcji jest 
dana typu boolean o wartości true albo false. 

Jeśli plik jest skojarzony ze zbiorem danych, to rezul— 
tatem funkcji £o/f jest dana o wartości true, o ile plik znaj— 
duje się w pozycji przed znakiem Ctrl-Z albo w pozycji końco-— 
wej. W przeciwnym razie rezultatem tej funkcji jest dana o 
wartości /fałse. 

Jeśli plik jest skojarzony z urządzeniem logicznym, to 
rezultatem funkcji Eof jest dana o wartości true — jeśli os-— 
tatnim zinterpretowanym znakiem był Ctrl-Z. W przeciwnym  ra— 
zie rezultatem tej funkcji jest dana o wartości /fałse. 


Przykład 
var 
ChrVar : char; 
begin 
ReadCChrVvarD>; 
WritelnCEofD 
end. 


e jeśli podczas wykonywania przytoczonego programu zos—. 
taną wprowadzone z konsoli znaki GCtrl-Z i CR, to nastąpi wy- 
prowadzenie napisu FAŁSE. 

e Stanie się tak dlatego, że znak Ctrl-Z zostanie pomi— 
nięty, a więc rezultatem funkcji £Eo/f będzie dana o wartości 
false. a 


Funkcja Eoln 


Wywołanie: EołnCTextVar> 

Przyjmuje się, że TextVar jest nazwą zmiennej plikowe j 
typu text. Jeśli TextVar jest nazwą Input, to wywołanie może 
zostać uproszczone do Eołn. 

wywołanie funkcji Eołn może dotyczyć zarówno pliku sko- 
jarzonego ze zbiorem danych, jak i pliku skojarzonego z urzą— 
dzeniem logicznym. W obu przypadkach rezultatem funkcji jest 
dana typu boołean o wartości true albo false. 

Jeśli plik jest skojarzony ze zbiorem danych, to rezul- 
tatem funkcji £Eołn jest dana o wartości true — jeśli plik 
znajduje się w pozycji przed znakiem GR albo gdy rezultatem 
funkcji £Łof jest dana o wartości true. W przeciwnym razie re-— 
zułtatem funkcji Zolłn jest dana o wartości false. 

Jeśli plik jest skojarzony z urządzeniem logicznym, to 
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rezultatem funkcji Eołn jest dana o wartości true — jeśli os-— 
tatnim zinterpretowanym znakiem był CR albo gdy rezultatem 
funkcji Eof jest dana o wartości true. W przeciwnym razie re— 
zultatem funkcji Eoln jest dana o wartości false. 


Przykład 
var 
ChrVar : char; 
TxtVar : text; 
begin 
ASSignCTxtVar, "STRANGE. DOC” >; 
Reset(CTxtVar); 
while not EofCTxtV/ar)> do begin 
WritelnCEolnCTxtVar>); 
ReadCTxtVar ,ChrVar> 
end 
end. 


e Jeśli zbiór STRANGE. DOC składa się z jednego wiersza 
pustego, tj. ze znaków CR, LF, Gtrl-z, to wykonanie przyto— 
czonego programu powoduje wyprowadzenie napisu 


TRUE 

FALSE 
e Wynika stąd, że w pozycji przed znakiem LF rezultatem 
funkcji Zoln jest dana o wartości false. a 


Funkcja SeekEof 


Wywołanie: SeekEof<TextVFar) 

Przyjmuje się, że TextVar jest nazwą zmiennej plikowej 
typu text. jeśli Text/ar jest nazwą Input, to wywołanie może 
zostać uproszczone do Seek£of/. 

Wywołanie funkcji Seek£Eojf jest zbliżone do wywołania 
funkcji Eof. Bezpośrednio po pominięciu najbliższych spacji, 
tabulacji oraz znaków CR i LF jest udostępniany taki sam re- 
zultat jak dla funkcji Eo/. 


Przykład 

var 
TxtVar : text; 

begin 
ASSignCTxtVar, STRANGE. DOC >; 
Reset(TxtVar)>; 
WritelnCSeekEofCTxtVar)>) 

end. 


e Jeśli zbiór STRANGE. DOC składa się z jednego wiersza 
pustego, to wykonanie przytoczonego programu powoduje wypro— 
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wadzenie napisu TRUE. a 


Funkcja SeekEoln 


Wywołanie: Seek£oln(TextVar) 

Przyjmuje się, że TextVar jest nazwą zmiennej plikowej 
typu text. jeśli TextFar jest nazwą Input, to wywołanie może 
zostać uproszczone do Seek£Łołn. 

wykonanie funkcji SeekEoln jest zbliżone do wykonania 
funkcji Eołn. Bezpośrednio po pominięciu najbliższych spacji 
i tabulacji jest udostępniany taki sam rezultat jak dla funk— 
cji Eoln. 


Przykład 
var 
TxtVar : text; 
Tałty : tnteger; 
ChrVar : char; 
begin 
Talłły := 0; 
AssignCTxtVar, TEXT. DOC”); 
ResetCTxtVar>; 
while not SeekEofCTxtVar)> do begin 
while not SeekEolnCTxt/ar)> do begin 
Tałły := Tałły + i; 
Read<TxtVar, ChrVar)>; 
end 
end; 
WritelnCTalliy) 
end. 


e Wykonanie przytoczonego programu powoduje wyznacze— 
nie liczby znaków zbioru TEXT. DOC. 

e Spacje, tŁabulacje, znaki CR, LF i Gtrl-Z kończące 
wiersze są ignorowane. [ 


12.4. PLIKI BEZ TYPU ELEMENTOW 


Pliki bez typu elementów umożliwiają wykonywanie niebu- 
forowanych operacji wprowadzania/wyprowadzania, dokonywanych 
bezpośrednio —między zmiennymi programu a zewnętrzną pa— 
mięcią dyskową. Przyjmuje się, że elementami pliku bez typu 
elementów są obiekty zajmujące po 128 bajtów pamięci. Plik 
bez typu elementów może reprezentować dowolny zbiór dyskowy. 
Z tego względu operacje takie jak np. Erase lub Rename MOCĄ 
być wykonywane za pośrednictwem plików bez typu elementów. 
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Opis typu pltku bez typu elementów składa się ze słowa 
kluczowego file. 


Składnia 
opis-typu-płlł ikovego-bez-typu-elłementów: 
file 


Przykład 

var 
DiskFile : fiłe; 
FileName : stringl[40]; 

begin 
WriteC FileName :— ”); 
ReadlnCFileNameD; 
AsstignCDiskFile,FilłeName); 
Erase(DiskFile) 

end. 


e wykonanie przytoczonego programu powoduje usunięcie 
dowolnego zbioru dyskowego o nazwie wprowadzonej z klawiatury 
konsoli. 

e Typ elementów zbioru jest bez znaczenia. m 


Wykonywanie operacji wprowadzania/wyprowadzania na pli-— 
kach bez typu elementów jest zrealizowane za pomocą procedur 
BlockKead i Blłockyrite. zastępują one odpowiednio procedury z 
typem elementów. Pozostałe operacje jak Assign, Keset, Rewri- 
te, Cłose, Seek i Eof mają taką samą interpretację jak dla 
plików z ustalonym typem elementów. 


Procedura BlockRead 


wywołanie: BłockReadćFileVar , Buffer ,Count ,KeplyD) 
BłockReadCFileVar Buffer ,CountD 

Przyjmuje się, że Filevar jest nazwą zmiennej plikowej 
reprezentującej plik bez typu elementów, Buffer jest nazwą 
dowolnej zmiennej programu, Count jest wyrażeniem typu tinte- 
ger, a Repły jest nazwą zmiennej typu tnteger. 

Wykonanie procedury BłockRead powoduje wprowadzenie z 
pliku reprezentowanego przez zmienną FiłełVar, do obszaru  pa— 
mięci operacyjnej zajmowanego przez zmienną Buffer, Count 
obiektów o rozmiarze 128 bajtów każdy.  Je$sli posłużono się 
wywołaniem zawierającym argument Reply, to zmiennej reprezen— 
towanej przez ten argument zostanie przypisana dana określa— 
jąca liczbę faktycznie wprowadzonych obiektów. Jeśli liczba 
ta jest mniejsza niż Count, to oznacza to, że plik znajduje 
się w pozycji końcowej. 
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Procedura Błockwrite 


Wywołanie: BlockwriteCFiłeVar „Buffer ,Count ,Reply) 
BlockwriteC(FileVar,Bujffer,CountD> 

Przyjmuje się, że FileVar jest nazwą zmiennej plikowej 
reprezentującej plik bez typu elementów, Buffer jest nazwą 
dowolnej zmiennej programu, Count jest wyrażeniem typu tnte- 
ger, a Reply jest nazwą zmiennej typu integer. 

Wykonanie procedury BlockWrite powoduje wyprowadzenie 
do pliku reprezentowanego przez zmienną FileVar, z obszaru 
pamięci zajmowanego przez zmienną Buffer, Count obiektów o 
rozmiarze 128 bajtów każdy. Jeśli posłużono się wywołaniem 
zawierającym Keply, to zmiennej reprezentowanej przez ten ar— 
gument zostanie przypisana dana określająca liczbę faktycznie 
wyprowadzonych obiektów. Jeśli liczba ta jest mniejsza niż 
Count, to oznacza to, że wykonanie procedury nie przebiegło 
pomyślnie. 


Przykład 

program Copy; 

var 
Src,Trg : file; 
Buffer : arrayl[O..255,boołean] of byte; 
Source,Target : stringl40]; 
Repły : tnteger; 

begin 
WriteC Source :-— ”); 
ReadlnCSource); 
WriteC Target :-— ”); 
Readln(Target); 
ASS TgnCSrc, Source); 
ASstgnCTrg,Target); 
Reset(Src); 
Revrite(Trg>; 
repeat 

BlockReadCSrc,Bujffer,4,Reply); 
BlockYriteC(Trg,Bujffer,Reply) 

until Kepły £ 4; 
CłoseCSrc); 
CłosećTrg) 

end. 


e Wykonanie przytoczonego programu powoduje skopiowanie 
zbioru danych o dowolnym typie elementów. a 
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12.5. KONTROLOWANIE POPRAWNOŚCI OPERACJI WEJSCIA/WYJSCIA 


Sposób kontrolowania poprawności operacji wejścia/wy jś— 
cia jest uzależniony od sposobu skompilowania programu. W za- 
kresie przyjmowanej przez domniemanie dyrektywy ($I+>, po 
każdej operacji wejścia/wyjścia jest kontrolowana jej popraw— 
ność. Jeśli zostanie wykryty błąd, to wykonywanie programu 
jest przerywane, a na konsolę jest wyprowadzany komunikat o 
rozpoznanym błędzie. W zakresie dyrektywy (%I-)> rozpoznanie 
błędu nie powoduje wstrzymania wykonywania programu, a  jedy— 
nie wstrzymanie wykonywania dalszych operacji wejścia.wy jś— 
cia. Stan taki utrzymuje się aż do momentu wywołania funkcji 
standardowej łIOresult, udostępniającej daną typu tnteger. 
Jeśli rezultatem wywołania tej funkcji jest dana o wartości 
O, Ło oznacza to, że dotychczasowe operacje wejścia/wyjścia 
zostały wykonane poprawnie. Jeśli rezultatem jest dana o 
wartości różnej od zera, to wartość ta określa rodzaj 
rozpoznanego błędu. Wykaz błędów operacji wejścia.wy jścia 
przytoczono w dodatku C. 


Przykład 

program Delete; 

var 
FiłeVar : file; 
FileName : string[40]; 
Flag : boolean; 

begin 
Writec'FiłeName :— ”); 
ReadlinCFileName); 
AssigniFileVar, FileName)>; 
<8$I-> Erase(FileVar>; <%I+> 
if not CIOresułt = O> then 

WritełnC'"File ” + FileName + "did not exist" 
end. 


e Wykonanie przytoczonego programu powoduje usunięcie 
zbioru danych o nazwie wprowadzonej z konsoli. 

e jeśli podano nazwę zbioru nie istniejącego, to zosta— 
nie wyprowadzony komunikat, że zbiór ten nie istniał. 

e Gdyby z programu usunięto dyrektywy kompilatora, a 
zbiór by nie istniał, to wykonywanie programu zostałoby prze— 
rwane na skutek wystąpienia błędu operacji Erase dotyczącej 
zbioru, który nie istnieje. u 


13. TYPY WSKAZUJĄCE 


Każdy z typów wskazujących jest typem prostym.  Wartoś— 
ciami danych wskazujących są wskazania danych. 


Daj 


Opis typu uskazującego składa się ze znaku (caret), 
bezpośrednio po którym występuje nazwa typu. Nie wymaga się, 
aby nazwa ta była już zdefiniowana. Jest to jedyny wyjątek od 


wymagania powoływania się na obiekty uprzednio zdefiniowane. 


Skt+ęadnia 
Opis-typu-vskazu jącego: 
nazwa-typu 
nazwa-typu: 
identyfikator 


Przykład 
type 
EmployeePtr = 'EmployeeData; 
EmployeeData = record 
Name : Sstringl30]; 
Sałary : real 
end; 
var 


EmployeeRef : EmployeePtr; 
lntkRef : "integer; 


e Typ EmpłoyeePtr jest związany ze zbiorem wskazań  da— 
nych typu EmpłoyeeData. 

e EmployeeRef jest nazwą zmiennej wskazującej. Zmienne jj 
tej mogą być przypisywane dane wskazujące dane typu Employee- 
Data. 

e IntKef jest nazwą zmiennej wskazującej. Zmiennej tej 
mogą być przypisywane dane wskazujące dane typu tnteger. m 
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Poza typami i zmiennymi wskazującymi występuje w Turbo 
Pascalu wskazanie puste reprezentowane przez słowo kluczowe 
nil. Typ tego wskazania jest zgodny z dowolnym innym typem 
wskazującym. Zmienne wskazujące oraz wskazanie puste mogą wy- 
stępować w relacjach = (równe) i <> (nie równe>. W  instruk-— 
cji przypisania wymaga się zgodności typów lewej i prawej 
strony. Zgodność ta ma miejsce tylko wtedy, gdy prawa strona 
jest słowem kluczowym nil oraz wtedy, gdy prawa strona repre— 
zentuje daną wskazującą takiego samego typu jak dane wskazy— 
wane przez zmienną znajdującą się z. lewej strony symbolu 
przypisania. 


Przykład 
type 
Days = (Mon, Tue,Wed,Thu,Pri, Sat , Sun); 
Week = Mon.. Sun; 
var 
Dayl : "Days; 
Day2,Day3 : "Week; 


e Ww zasięgu przytoczonych definicji i deklaracji po— 
prawne są m.in. przypisania 
Dayli := nil; 
Day2 := Day3 
ale nie jest poprawne przypisanie 
Day2 := Dayl; 
ponieważ zmienne Day2 i Day1i są różnych typów. | 


Zmienne wskazujące mogą zostać wykorzystane do  dyna-— 
micznego zarządzania pamięcią operacyjną. Pomocne są w tym 
procedury do przydzielania i zwalniania tej pamięci. 


Procedura Nev 


Wywołanie: Nev(PtrVarD) 

Przyjmuje się, że PtrVar jest nazwą zmiennej wskazu ją— 
cej. 

Wykonanie procedury New powoduje utworzenie zmiennej 
takiego samego typu, jakiego są dane, na które mogą wskazywać 
dane przypisywane zmiennej PtrVar. Po wykonaniu tej czynności 
zmiennej Ptrar zostaje przypisana dana wskazująca właśnie 
utworzoną zmienną. Wymieniona tu zmienna zostaje utworzona w 
obszarze pamięci operacyjnej nazywanym stertą i może być tra— 
ktowana tak, jak dowolna inna zmienna jej typu. 
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Przykład 
type 
Matrix = arrayl[boolean] of arraylboołean] of real; 
var 
MatrixPtr : "Matrix; 
begin 
NevCMatrtxPtro>; 
MatrixPtr'l[truelltrue] := 23.5; 
end. 
e wykonanie procedury Nev powoduje utworzenie — na 
stercie — zmiennej typu Matrix, a. następnie przypisanie 


zmiennej wskazującej MatrixPtr danej wskazującej tę zmienną. 
e Wykonanie instrukcji przypisania powoduje przypisanie 
narożnikowemu elementowi tablicy MatrixPtr" danej o wartości 
23.5. 
e Należy zauważyć, że napis MatrixPtr jest nazwą zmien— 
nej wskazującej, a napis MatrixPtr" jest nazwą obiektu wska— 
zywanego przez tę zmienną. a 


Procedura Dispose 


wywołanie: Dispose(PtrVarD) 

Przyjmuje się, że PtrFar jest nazwą zmiennej wskazu ją— 
cej. 

wykonanie procedury Dispose powoduje eliminację zmien— 
nej wskazywanej przez zmienną wskazującą PtrVar. Wymaga się, 
aby eliminowana zmienna była uprzednio utworzona za pomocą 
procedury New. Obszar pamięci operacyjnej, zajmowany przez 
eliminowaną zmienną, zostaje zwrócony do sterty i może zostać 
wykorzystany podczas tworzenia innych zmiennych. 


Przykład 

var 
IntRef : "integer; 

begin 
Nevć IntRefD); 
IntRef" := 20; 
Dispose(lntRef); 
Nev(IntRefD>; 
IntRef" := 30; 
WritelnC(IntRef"> 

end. 


e Wykonanie przytoczonego programu powoduje wyprowa— 
dzenie napisu 30. 
e Gdyby z programu usunięto drugą instrukcję przypisa— 
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nia, to byłby on błędny, ponieważ w momencie wykonywania pro— 
cedury Writełn zmiennej IntRef nie byłaby przypisana żadna 
dana. a 


Procedura Mark 


Wywołanie: Mark(PtrVar> 

Przyjmuje się, że PtrFar jest nazwą zmiennej wskazu ją— 
cej dowolnego typu. 

Wykonanie procedury Mark powoduje przypisanie zmiennej 
PtrVar wskazania bieżącego szczytu sterty. 


Procedura Release 


Wywołanie: Release(Ptrvar) 

Przyjmuje się, że PtrFar jest nazwą zmiennej wskazu ją— 
cej dowolnego typu. 

wykonanie procedury Release powoduje usunięcie ze ster- 
ty zmiennej wskazywane j przez PtrVar i wszystkich zmiennych 
następujących po niej na stercie. 


Procedury  Nev-Dispose oraz  Mark-Release dostarcza ją 
dwóch mechanizmów zarządzania pamięcią sterty. w ustalonym 
programie należy ograniczyć się do jednego z tych mechaniz— 
mów. Istotę różnic między rozpatrywanymi tu mechanizmami 
przedstawiono na rys.13.1. Przy założeniu, że zmiennej Ptr 
przypisano wskazanie zmiennej var3, pokazano tam skutek 
wykonania procedury DisposeC(Ptr»> i Relłease(Ptr). 


Sterta Po Dispose Po Kełease 


Rys.13.1. Porównanie mechanizmów zarządzania pamięcią sterty 


Procedura Get Mem 


Wywołanie: GetMem(PtrVar,IntExpD> 
Przyjmuje się, że PtrVar jest nazwą zmiennej wskazują— 
cej, a IntExp jest wyrażeniem typu tnteger. 
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Wykonanie procedury GetMem powoduje zarezerwowanie — na 
stercie — obszaru pamięci operacyjnej o rozmiarze wyrażonym w 
bajtach i określonym przez wartość wyrażenia IntExp, a nastę 
pnie przypisanie zmiennej PtrVar danej wskazującej tak przy- 
pisany obszar. 


Procedura EFreeMem 


Wywołanie: FreeMem(PtrVar,IntExp 

Przyjmuje się, że PtrVar jest nazwą zmiennej wskazują— 
cej, a IntExp jest wyrażeniem typu tnteger. 

Wykonanie procedury £FreeMem powoduje zwrócenie do ster— 
ty obszaru pamięci operacyjnej wskazywanego przez zmienną 
PtrVar, zajmującego tyle bajtów, ile okresla wartość danej 
reprezentowanej przez wyrażenie IntExp. Wymaga się, aby ob- 
szar zwracany za pomocą procedury ŁreeMem miał dokładnie taki 
sam rozmiar, jak obszar uzyskany za pomocą procedury Get Mem. 


Funkcja MaxAvatl 


wywołanie: MaxAvatl 
Rezultatem funkcji MaxAvaitł jest dana typu  tinteger 
określająca rozmiar największego spójnego obszaru pamięci 
operacyjnej dostępnego na stercie. Kozmiar ten jest wyrażony 
liczbą bajtów <Elwro 800 jJr> albo liczbą paragrafów po 1ó 
bajtów CIBM PCO>. Jeśli rezultat jest ujemny, to faktyczną 
liczbę paragratów można uzyskać dodając do rezultatu liczbę 
rzeczywistą Óó5536. 
Przykżad 
type 
Pointer = "Patr; 
Pair = record 
Int : tnteger; 
Ref : Pointer; 
end; 
var 
Number : tnteger; 
Head,Tatl : Potnter; 
begin  (%8B-» 
Head := nil; 
Read€Number D; 
while not Eo/ do begin 
NewCTailD>; 
Tatl”.IRt := Number; 
Tail'.Ref := Head; 
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Head := Tail; 
ReadCNumber ) 

end; 

Tail := Head; 

while 7aił <> nil do begin 
WritełnCTail”.Int); 
Tail := Taił".Ref 

end 

end. 


e wykonanie przytoczonego programu powoduje wprowadze— 
nie z konsoli ciągu liczb całkowitych, a następnie wyprowa— 
dzenie go w kolejności odwrotnej. a 


14. PRZYPISYWANIE DANYCH POCZĄTKOWYCH 


Jedną z ważnych właściwości języka Turbo Pascal jest 
możliwość przypisywania zmiennym danych początkowych. Jeśli 
podczas wykonywania programu zmienne takie zachowują swoje 
początkowe wartości, to mogą być traktowane jak stałe. Jeśli 
natomiast zmienna, której przypisano daną początkową zmieni 
swoją wartość, to w chwili ponownego aktywowania programu 
znajdującego się w pamięci operacyjnej, zostanie zachowana 
ostatnia wartość zmiennej z poprzedniego wykonania. Ponieważ 
taki program z reguły traci właściwość powtarzalności, zaleca 
się, aby przypisywanie danych początkowych było ograniczone 
do zmiennych zachowujących się jak stałe. Z tej to właśnie 
przyczyny deklaracje zmiennych, którym należy przypisać dane 
początkowe, występują w programie po słowie kluczowym const, 
a nie po słowie var. 


Przykżład 
program ZIncrement; 
const 
Number : integer = 1; 
begin 


WritelnC' Number = ”,Number); 
Number := Number + 1 
end. 


e W przytoczonym programie zmiennej Number typu integer 
przypisano daną początkową o wartości 1. 
e Kolejne aktywowanie programu za pomocą dyrektywy R 
będzie powodować wyprowadzanie kolejnych liczb naturalnych. 
a 


Jak już częściowo wynika z przytoczonego przykładu, de- 
klaracja zmiennej, której przypisano daną początkową, składa 
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się z nazwy zmiennej, po której następuje dwukropek, następ— 
nie opis typu zmiennej, znak równości, inicjator oraz śŚred- 
nik. Zapis inicjatora zależy od typu zmiennej. Dla zmiennych 
prostych ma on postać literału, natomiast dla zmiennych ta— 
blicowych ma postać listy inicjatorów ujętych w nawiasy okrą— 
głe, a dla zmiennych rekordowych postać wykazu inicjatorów, 
także ujętego w nawiasy okrągłe. 


Składnia 
dekłaracja-z-inticjac ją: 
nazva-zmiennej : opis-typu = inicjator ; 
nazuva-zmiennej: 
identyfikator 
inicjator: 
łiterał 
nazva-lłiterału 
€ łista-inicjatorów > 
€ wykaz-inicjatorów D) 


Przykłady 
const 
LineLength : byte = 132; 
Radius : reał = 13.64; 


FułlName : stringl1i2] = "Jan Bieleckt"; 
CtriM : char = "M; 

Separator : set of char = [”/*”,”;”,”.”]; 
SexIsMale : boołean = true; 


ShortName : stringl3] = "Izabela"; 
WholeReał : real = 44; 


e Zmiennej ŁineLength (typu byżte)> przypisano daną  po— 
czątkową 132. 

e Zmiennej Radius (typu reał> przypisano daną początko— 
wą 13.64. 

e Zmiennej FułłName C€typu string!12]> przypisano daną 
"Jan Bielecki. 

e Zmiennej CtrłM (typu char> przypisano daną "M. 

e Zmiennej Separator (typu set of char» przypisano daną 
[27,37,7.2]. 

e Zmiennej SexIsMale (typu boołean> przypisano daną 
true. 

e Zmiennej ShortName ćtypu stringl[31> przypisano daną 
*lza'. 

e Zmiennej WholekKeał przypisano daną 44.0. a 

Jeśli inicjowana zmienna jest tablicą, to inicjator mu-— 


si mieć postać listy ujętej w nawiasy okrągłe, wyszczegól-— 
niającej dane początkowe dla wszystkich elementów tej tabli— 
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cy. Jeśli inicjowana zmienna jest rekordem, to inicjator musi 
mieć postać wykazu ujętego w nawiasy okrągłe, wyszczególnia— 
jącego dane początkowe dla wszystkich albo tylko niektórych 
komponentów rekordu. Wymaga się, aby elementy wykazu wyszcze— 
gólniały dane początkowe w takiej kolejności, w jakiej kompo— 
nenty rekordu występują w jego deklaracji. W przypadku  ini— 
cjowania rekordów elementami wykazu są oddzielone średnikami 
napisy składające się z nazwy pola rekordu, po której nastę— 
puje dwukropek i inicjator pola rekordu. 
Przykłady 
type 
Color = C(Ked,BlackR,FairD); 
Person = record 
FirstName,LastName : stringl12]; 
Hair : Cołor; 


Age : byte 
end; 
Sex = (male, jemałe); 
const. 
Vector : array[1..3] of Sex » 


(małe,małe, female); 

Matrix : array[Cołor,2..31 of byte = 
CCO,02,41,102,€2,52); 

ThreeD : array[boołean,boołean,boołean] of Color = 
(CCRed,Red)>,CRed,FairD), 
(CBlack,Black),CRed,BlackR>22; 

JanB : Person = 


CFirstName : "Jan"; 
LastName : "Bielecki"; 
Hair : Black; 

Age : 44); 
Family : array[1. .3] of Person »= 
(CFirstName : "Jan"; 
LastName : ”Bieleckht'; 
Hair : Black; 
Age : 44), 

(FirstName : "Ewa"; 
LastName : "Bielecha"; 
Hair : Black; 

Age : 38), 

C(FirstName : "lza*'; 

LastName : "Bielecka"; 


Hair : Black; 
Age : 302); 
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e Elementowi Vector[2] przypisano daną początkową male. 

e Elementowi MatrixlFair,3] przypisano daną początkową 
5. 

e Elementowi  TkhreeDlfalse,true,true] przypisano daną 
początkową Fatr. 

e Komponentowi JanB. Age przypisano daną początkową 44. 

e Komponentowi Familyl21. Age przypisano daną początkową 
38. 

e Gdyby deklaracji zmiennej Vector nadano postać 

Vector : arrayl[1i..3] of Sex = 
male, female); 

to byłaby ona błędna, ponieważ zmienna ta jest tablicą 
3-elementową, natomiast lista inicjatorów zawarta w nawiasach 
okrągłych składa się tylko z 2 elementów. 

e Gdyby deklaracji zmiennej JanB nadano postać 


JanB : Person = CFirstName : "Janek"; 
to byłaby ona poprawna i równoważna deklaracji 
JanB : Person = CFirstName : "Jan'); 
e Gdyby deklaracji zmiennej JanB nadano postać 
JanB : Person = CLastName : "Bielecki"); 
to byłaby ona niepoprawna. a 


Przypisania danych początkowych polom rekordu z warian— 
tami są sensowne tylko wówczas, gdy dotyczą tych pól warian— 
tu, które do niego należą. Wymaganie to nie jest kontrolowane 
przez kompilator. 


Przykład 
type 
Sex = (male, female); 
Cołor = (C(Błack,Red,Blłond); 
Person = record 
Name : stringl20]; 
case Gender : Sex of 
male : CHeight : byte); 
female : CHair : Color) 


end; 
const 
Trio : array[1..3] of Person = 
<CName : Eva"), 
CName : "Jan"; Gender : male), 
CName : "”lza”; Gender : female; 
Hatr : Błack)>D>; 
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e Komponentowi Triol21.Gender tablicy rekordów 
przypisano daną początkową male. 
e Inicjator o postaci 
(Name : "”lza”; Gender : male; Hair : Black) 
chociaż mało sensowny, jest uznawany za poprawny. 


15. FUNKCJE I PROCEDURY 


Funkcje i procedury Są obiektami opisującymi dobrze 
zdefiniowane fragmenty algorytmu realizowanego przez program. 
z tego względu będą nazywane podprogramami. 

w odróżnieniu od innych obiektów strukturalnych, jak 
np. instrukcji wyboru, wykonanie podprogramu wymaga jego wy- 
wołania, tj. stosownie do sytuacji, posłużenia się  instruk— 
cją wywołania procedury albo wywołaniem funkcji. Instrukcja 
vwyvołania procedury może wystąpić w każdym miejscu programu, 
w którym może być użyta np. instrukcja pusta, natomiast wywo— 
Łanie funkcji może być użyte jedynie w wyrażeniu, gdzie wys— 
tępuje pod postacią tzw. nazewnika funkcji. 

Podprogramy, podobnie jak zmienne, wymagają deklarowa— 
nia. Deklaracje podprogramów mogą być umieszczane w części 
deklaracyjnej bloku. Deklaracja podprogramu, nazywana niekie— 
dy jego definicją, Składa się z nagłówka oraz z bloku 
stanowiącego ciało podprogramu. Nagłówek procedury składa się 
ze słowa kluczowego procedure, po którym następuje nazwa pro- 
cedury, ujęty w nawiasy okrągłe wykaz parametrów procedury 
oraz średnik. Nagłówek funkcji składa się ze słowa kluczowego 
function, po którym następuje nazwa funkcji, ujęty w nawiasy 
okrągłe wykaz parametrów funkcji, dwukropek, określenie typu 
rezultatu funkcji oraz średnik. Jeśli wykaz parametrów pod— 
programu jest pusty, to jest opuszczany wraz z otaczającymi 
go nawiasami. 

Wymaga się, aby podczas wykonywania funkcji została wy-— 
konana instrukcja przypisania, w której z lewej strony symbo— 
łu przypisania występuje nazwa funkcji, a z prawej wyrażenie 
zgodne z typem rezultatu funkcji. Dana reprezentowana przez 
wyrażenie, które wystąpiło w ostatnim tak wykonanym przypisa— 
niu, stanowi rezultat funkcji. Wykonanie funkcji nie musi 
ograniczyć się do udostępnienia rezultatu. Może ono także 
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spowodować zmianę pewnych argumentów jej wywołania. 


Składnia 
dekłaracja-podprogramu: 
deklaracja-procedury 
dekłaracja-funkcji 
deklaracja-procedury: 
procedure nazva-procedury (€ uykaz-parametrów D ; 
procedure nazvwa-procedury 
deklaracja-funkcji: 
function nazvwa-funkcji € wykaz=parametrów D) 
typ-rezułtatu ; 
function nazva-funkcji : typ-rezułltatu ; 
nazwa-procedury: 
identyfikator 
nazua-funkcji: 
identyfikator 
typ-rezułłtatu: 
identyfikator-typu 
identyfikator-typu: 
identyfikator 


Elementy wykazu parametrów podprogramu są oddzielone 
średnikami. Każdy element wykazu zawiera listę  identyfikato- 
rów parametrów, po której następuje dwukropek i identyfikator 
typu parametrów danej listy. 

w chwili wywołania podprogramu następuje skojarzenie 
parametrów podprogramu z argumentami jego wywołania. Liczba 
argumentów wywołania musi być równa liczbie parametrów, a 
skojarzenia parametrów z argumentami dokonują się w kolejnoś— 
ci ich wystąpienia w nagłówku podprogramu i w wywołaniu. 

Skojarzenie parametru z argumentem może dokonać się 
przez wartość albo przez wskazanie. W pierwszym przypadku pa- 
rametr jest traktowany jak lokalna zmienna podprogramu, któ— 
rej w chwili rozpoczęcia jego wykonywania (dla danego wywoła— 
nia) przypisano daną reprezentowaną przez argument. W drugim 
przypadku parametr jest traktowany tak, jakby reprezentował 
argument. Ma to ten skutek, że każda operacja dotycząca pa— 
rametru jest realizowana tak, jakby dotyczyła argumentu. Po- 
służenie się tym rodzajem skojarzenia parametru z argumentem 
wymaga poprzedzenia listy identyfikatorów parametrów słowem 
kluczowym var. 

Szczególnym rodzajem skojarzenia przez wskazanie jest 
skojarzenie parametru z argumentem, który jest nazwą podpro— 
gramu. Jednym z ograniczeń języka Turbo Pascal w stosunku do 
standardu języka Pascal jest brak tego rodzaju skojarzenia. 
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Składnia 

element-wykazu-paramet rów: 
łista-nazw-parametrów : oznaczenie-typu 
var lista-nazw-parametrów : oznaczenie-typu 

oznaczenie-typu: 
identyfikator-typu 

identyfikator-typu: 
identyfikator 

nazwa-parametru: 
identyfikator 


Przykłady 


a. Procedura z jednym parametrem, skojarzenie przez wartość 
program FiveNessages; 


var 

Tałly : byte; 
procedure SłowvDovn(Count : integer); 
begin 

for Count := Count downto 1 do 
end; 
begin 


for Tally := 1 to 5 do begin 
WritełnC'Vake up'D; 
SłŁowDown(€4002 
end 
end. 


e Program FiveMessages zawiera 2 deklaracje: deklarac ję 
zmiennej Tałły i deklarację procedury SłowDown. 

e Wykazem, a zarazem elementem wykazu parametrów, jest 
napis 

Count : integer 

e Skojarzenie parametru Count z argumentem 400 dokona 
się przez wartość. 

e Operacje na parametrze Count są w istocie operac jami 
na pewnej lokalnej zmiennej procedury  SłowDovn.  Początkową 
wartością tej zmiennej jest 400. 


b. Procedura z dwoma parametrami, skojarzenie przez wskazanie 


program Convert AndSvap; 


var 
theFloat : real; 
theFixed : integer; 
procedure SvapC(var Float : real; 


var Fixed : integer); 
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var 
Temp : real; 


begin 

Temp := Float; 

Float := Fixed; 

Fixed := truncCTemp + 0.52 
end; 
begin 

theFloat := 12.8; 

theFixed := 10; 


WritelnCtheFloat ,theFixed :302; 

Svap(theFłoat ,theFixed :32; 

WrielnCtheFloat ,theFixed :3) 
end. 


e Program Convert AndSvap zawiera 6 deklaracji: deklara— 
cje zmiennych theFłoat i tkheFixed, deklarację procedury Swap, 
deklaracje parametrów Fłoat i Fixed oraz deklarację zmiennej 
Temp. 

e Wykaz parametrów procedury Swap składa się z 2 ele-—- 
mentów oddzielonych średnikiem. 

e Skojarzenia parametrów procedury z argumentami wywo 
łania dokonują się przez wskazanie. 

e Operacje na parametrze Fłoat są w istocie operac jami 
na argumencie theFłoat, a operacje na parametrze Fixed są 
operacjami na argumencie theFixed. 

e Wykonanie programu powoduje wyprowadzenie 2 wierszy 
tekstu. W pierwszym znajdą się liczby 12.8 i 10, a w drugim 
liczby 10 i 13. 

e Gdyby nagłówkowi procedury Swap nadano postać 

procedure SvapgCFloat : reał; 
var Fixed : integer); 
niczego poza tym nie zmieniając, to zostałyby wyprowadzone 
liczby 12.8 i 10 oraz 12.8 i 13. Wynika to z faktu, że po 
wprowadzeniu takiej zmiany skojarzenie parametru Fłoat z ar— 
gumentem thefioat dokonałoby się przez wartość. 


c. Najkrótszy program zawierający deklarację i wywołanie pro— 
cedury bezparametrowe j 

procedure P; 

begin 

end; 

begin 

P 
end. 
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d. Funkcja z trzema parametrami 


program MultiplyDivide; 
var 
Product : itnteger; 
function DivideC(SourceOne, SourceTvo : byte; 
var Target : tnteger) : real; 
begin 
Target := SourceOne * Sourcer[vwo; 
Divide := SourceOne / SourceTvo 
end; 
begin 
WritelnCDivide(12,4,Product)>,Product :3D) 
end. 


e Parametry SourceOne i SourceTwo są skojarzone z argu- 
mentami 12 i 4 przez wartość. Parametr Target jest skojarzony 
z argumentem Product przez wskazanie. Kezultatem funkcji jest 
dana typu real przypisana zmiennej o nazwie Divide. 

e wykonanie programu powoduje wyprowadzenie 1 wiersza 
tekstu zawierającego liczby 3.0 i 48. 

e Gdyby nagłówkowi funkcji Divide nadano postać 

function DivideC(SourceOne,SourceTvwo : byte; 
Target : integerD : reał; 
to program byłby niepoprawny z powodu nie przypisania zmien— 
nej Product żadnej danej. 

e Gdyby nagłówkowi funkcji Divide nadano natomiast pos— 

tać 
function Divide(var SourceOne, SourceTvwo : byte; 
war Target : integer) : real; 
to program byłby niepoprawny, ponieważ z parametrami zadekla— 
rowanymi do skojarzenia przez nazwę próbowano by skojarzyć 
argumenty nie będące nazwami zmiennych, lecz wyrażeniami, tu 
12 i 4. 


e. Najkrótszy program zawierający deklarację i wywołanie fun— 
kcji bezparametrowe j 
function F : byte; 
begin 
E:=0 
end; 
begin 
wWriteCF> 
end. 
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f. Program zawierający parametry podprogramu  reprezentu jące 


podprogramy 
program VeryCompłicated; 
procedure ExtCprocedure Par;Flag : boolean); 
var 
Fix : byte; 
procedure Int; 
begin 
Fix := Fix + 1; 
end; 
begin (Ext» 
Fix := 0; 


if Flag then ExtCInt false) 
else Par; 
WritelnCFix) 
end; 
begin CFeryComplicated» 
Out (Out true) 
end. 


e Przytoczony program zawiera te konstrukcje języka 
standardowego, które nie zostały implementowane w języku 
Turbo Pascal. Z tego powodu jest to program błędny. m 


Kontrolowane przez kompilator wymaganie zgodności typu 
parametru z typem argumentu nie dotyczy tzw. parametrów bez 
typu, zadeklarowanych bez oznaczenia typu. Przyjmuje się bo- 
wiem, że nie ujawniony typ takiego parametru jest zgodny z 
typem dowolnego, skojarzonego z nim argumentu. To rozszerze— 
nie języka, często w połączeniu z użyciem opisanego w rozdz. 
19 słowa kluczowego absolute umożliwia w wielu przypadkach 
opracowywanie bardziej efektywnych programów. 


Przykład 
program MoveArray; 
var 
SourceArray : arrayl[1..3.1..4) of integer; 
TargetArray : array[1i..2,1..6] of integer; 


procedure MoveBytes(var Source,Target; 


Count : integer); 
var 
Index : integer; 
type 
ByteFfielłd = arrayl1..MaxiInt] of byte; 
var 


Src : ByteField absolute Source; 
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Trg : ByteField absolute Target; 
begin 
for Index := 1 to Count do 
Trglindex] := SrclIndex] 
end; 


begin 
MoveBytes(SourceArray,TargetArray,24); 


.. 


end. 


e Tablice SourceAńrray i TargetArray są różnych typów, 

zatem wykonanie instrukcji 

TargetArray := SourceArray 
jest zabronione. Rezultat ten można jednak uzyskać posługu jąc 
się procedurą MoveBytes. 

e W procedurze tej Source i Target są parametrami bez 
typu. Lokalne zmienne Src i Trg typu ByteField zostają odwzo— 
rowane na obszary pamięci zajmowane przez tablice skojarzone 
z tymi parametrami. u 


Program, w którym parametr jawnie określonego typu jest 
skojarzony z argumentem innego typu, jest błędny. Wymaganie 
zgodności typu parametru i argumentu może zostać osłabione w 
odniesieniu do parametrów i argumentów typu łańcuchowego. 
Przyjęto bowiem, że w zasięgu działania dyrektywy kompilatora 
<8$V-)> każdy parametr typu łańcuchowego jest zgodny ze skoja— 
rzonym z nim argumentem typu łańcuchowego. Umożliwia to kon— 
struowanie procedur do przetwarzania danych łańcuchowych  do— 
wolnych typów. 


Przykład 
program Count Spaces; 
type 
OneLine = stringl80]; 
function SpaceCount C(SourceText : OneŁLirńe) : integer; 
var 
Count, Index : integer; 
begin 
Count := 0; 
for Index := 1 to Length(SourceText) do 
if SourceTextlIndex] = ” ” then 
Count := Count + 1; 
SpaceCount := Count 


end; 
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begin 


Writeln(CSpaceCount( 
<8V-> To be or not to be” X%V+» 
22; 


end. 


e Parametr SourceTexł jest typu stringl80], natomiast 
skojarzony z nim argument jest typu stringl181. 

e Wywołanie funkcji SpaceCount jest poprawne, ponieważ 
skojarzenie parametru z argumentem odbywa Się w zasięgu 
dyrektywy kompilatora <$VF—->. 

e Wykonanie instrukcji wywołania procedury Writeln po- 
woduje wyprowadzenie liczby 5. m 


Podobnie jak w innych językach algolopodobnych, podpro-— 
gramy zapisane w języku Turbo Pascal mogą zostać przygotowane 
w wersji rekurencyjnej. Niejednokrotnie umożliwia to uprosz— 
czenie algorytmu. 


Przykład 
function FibonacciCIndex : byłe) : integer; 
begin 
if Index < 3 then 
Fibdonacci :=1 
else 
Fibonacci := Fibonaccit(Index — 1) + 
Fibonacci(iIndex — 2) 
end; 


e Przytoczona funkcja służy do wyznaczania wartości wy-— 
razów ciągu Fibonacciego. W ciągu tym pierwsze dwa wyrazy ma— 
ją wartość 1, natomiast każdy z następnych jest sumą dwóch 
bezpośrednio go poprzedza jących. a 


W Łych przypadkach, gdy posłużenie się rekurencją wy— 
maga zadeklarowania np. dwóch procedur, z. których pierwsza 
wywołuje drugą, a druga wywołuje pierwszą, niemożliwe jest 
takie uporządkowanie deklaracji, aby każde odwołanie doty— 
czyło obiektu już zadeklarowanego. W takiej sytuacji koniecz— 
ne jest posłużenie się deklaracją zapowiadającą, składającą 
się z nagłówka podprogramu, po którym następuje średnik i 
słowo kluczowe forward. 

w dogodnym miejscu po deklaracji zapowiadającej powinna 
wystąpić właściwa deklaracja podprogramu. Jej nagłówek nie 
zawiera już wykazu parametrów ujętego w nawiasy, a dla funk—- 
cji — także dwukropka i następującego po nim oznaczenia typu. 
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Przykład 
function FunOne(var Source,Target : byte) : char; 
forward; 
function FunTvoćCount : byte) : real; 
begin 


WriteC(FunOnelCount 2*CountD>); 


end; 
function FunOne; 
begin 


WriteCFunTwoćSource + TargetD>); 


end; 


e Ponieważ w ciele definicji funkcji FunTvo wystąpiło 
odwołanie do funkcji FunOne, a w ciele funkcji FunOne wystą— 
piło odwołanie do funkcji FunTvo, konieczne było posłużenie 
się deklaracją zapowiadającą, w której ciało funkcji FunOne 
zostało zastąpione napisem forward. 

e Oczywiście nic nie stałoby na przeszkodzie, aby de— 
klaracje przytoczonych funkcji wystąpiły w odwrotnej kolej-— 
ności. W takim przypadku deklaracja zapowiadająca dotyczyła— 
by funkcji Fun7Tvo i miałaby postać 

function FunTvoćCCount : byte) : real; 


16. PODPROGRAMY STANDARDOWE 


Określenie podprogram standardowy dotyczy tych  podpro— 
gramów, które są dostępne bez jawnego definiowania. Wiele ta— 
kich podprogramów opisano już uprzednio. Należą do nich  pod— 
programy służące do wykonywania operacji na danych  łańcucho— 
wych, podprogramy do dynamicznego zarządzania pamięcią opera— 
cyjną oraz podprogramy realizujące operacje wejścia/wyjścia. 

Uzupełnieniem tego obszernego zbioru podprogramów są 
procedury ekranowe i specjalne, funkcje arytmetyczne, ska- 
larne i do wykonywania konwersji, jak również dość liczna 
grupa funkcji pomocniczych. 


16.1. PROCEDURY EKRANOWE 


Procedury ekranowe są dostępne w tych  implementac jach, 
w których dokonano ich instalacji. 


Procedura CirEoł 


Wywołanie: CirEoł 

Procedura Cłr£oł jest bezparametrowa. 

Wykonanie procedury CłrEoł powoduje zlokalizowanie wier 
sza, w którym znajduje się kursor, a następnie zastąpienie 
spacjami wszystkich znaków tego wiersza, począwszy od znaku 
wyróżnionego przez kursor. Pozycja kursora nie ulega zmianie. 


Procedura CirScer 


wywołanie: CłirScr 
Procedura CłrScr jest bezparametrowa. 
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wykonanie procedury CirScr powodu je tzw. "wyzerowanie" 
ekranu, tj. zapełnienie go znakami spacji. Kursor zostanie 
umieszczony w lewym górnym rogu ekranu. w zależności od Sspo— 
sobu zainstalowania procedury czynności tej może towarzyszyć 
zmiana parametrów ustalonych za pomocą opisanych dalej proce— 
dur Łow/ideo i NormvVideo. 


Procedura CrtlInit 


Wywołanie: CrtInit 

Procedura Crłinit jest bezparametrowa. 

Wykonanie procedury Crtlnit powoduje skierowanie do mo— 
nitora łańcucha znaków inicjujących.w Elwro 800 Junior nie 
wywołuje to żadnych skutków Cłańcuch jest pusty). 


Procedura CrtExit 


wywołanie: CrtExit 

Procedura CrtExit jest bezparametrowa. 

Wykonanie procedury CrtExit powoduje skierowanie do mo—- 
nitora łańcucha znaków kończących. W Elwro 800 junior nie wy— 
wołuje to żadnych skutków Cłańcuch jest pusty). 


Procedura DelŁLine 


wywołanie: DelŁine 

Procedura DelŁine jest bezparametrowa. 

Wykonanie procedury DełLine powoduje zlokalizowanie 
wiersza, w którym znajduje się kursor, a następnie usunięcie 
go i przemieszczenie wierszy znajdujących się poniżej o jeden 
wiersz do góry. Po wykonaniu tej czynności najniższy wiersz 
ekranu staje się pusty. Pozycja kursora nie ulega zmianie. 


Procedura InsLine 


wywołanie: InsŁine 

Procedura InsŁine jest bezparametrowa. 

Wykonanie procedury  InsŁtne powoduje zlokalizowanie 
wiersza, w którym znajduje się kursor, a następnie przemiesz— 
czenie tego wiersza, wraz z wierszami za nim następującymi, o 
jeden wiersz do dołu. Powoduje to umieszczenie na ekranie pu— 
stego wiersza i usunięcie z ekranu najniżej położonego z 
przemieszczanych wierszy. Pozycja kursora nie ulega zmianie. 
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Procedura GotoXY 


Wywołanie: GotoXYCxPos,yPos) 

Przyjmuje się, że xPos i yPos są wyrażeniami typu tinte— 
ger. 

Wykonanie procedury GotoXY powoduje ustawienie kursora 
w takiej pozycji, że wyróżnia on znak o współrzędnych  (xPos, 
yPos>. Zakłada się, że lewy górny narożnik ekranu ma współ— 
rzędne (1,10; odcięte są liczone od lewej do prawej, a rzędne 
od góry do dołu. Jeśli wartość wyrażenia xPos albo yPos wy-— 
kracza poza rozmiar wiersza albo kolumny, to każda z nich 
jest traktowana modulo rozmiar. 


Procedura ŁowVideo 


Wywołanie: ŁovVideo 

Procedura ŁowVideo jest bezparametrowa. 

Wykonanie procedury Łow/ideo powoduje, że aż do naj- 
bliższego wykonania procedury NormVideo znaki wyprowadzane na 
ekran są poddane inwersji. 


Procedura Normyideo 


Wywołanie: NormFideo 

Procedura NormVideo jest bezparametrowa. 

Wykonanie procedury NormVideo powoduje przywrócenie 
normalnego C€por. procedura ŁovwFideo»> sposobu wyświetlania 
znaków. 


16.2. PROCEDURY SPECJALNE 


Procedura Delay 


Wywołanie: Dełay(Time) 
Przyjmuje się, że Time jest wyrażeniem typu tnteger. 
Wykonanie procedury Dełay powoduje wstrzymanie wykonywa— 
nia programu na okres ćw przybliżeniu» Time milisekund. Jeśli 
wyrażenie Time ma wartość ujemną, to traktuje się je tak, 
jakby miało wartość 0. 
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Procedura Fill 


wywołanie: FillCFar ,Cnt , ValD 

Przyjmuje się, że Var jest nazwą zmiennej dowolnego ty— 
pu, Cnł jest wyrażeniem typu integer, a Vał jest wyrażeniem 
typu char albo byte. 

Wykonanie procedury Filłł powoduje umieszczenie w obsza— 
rze, którego początek przydzielono zmiennej Var, Cnt danych 
bajtowych mających taką samą reprezentację jak dana bajtowa 
reprezentowana przez Vał. 


Procedura Exit 


wywołanie: Exit 

Procedura Exit jest bezparametrowa. 

Wykonanie procedury Exił ma taki sam skutek, jak 
wykonanie instrukcji przejścia do niejawnej instrukcji puste j 
poprzedzającej słowo kluczowe end tego bloku, w którym wywo- 
łanie to nastąpiło. Powoduje to zatem zakończenie wykonywania 
bloku, a jeśli jest nim blok programu, także zakończenie wy-— 
konywania całego programu. 


Procedura Halt 


Wywołanie: Halt 

Procedura Hałt jest bezparametrowa. 

Wykonanie procedury Halt powoduje zakończenie wykony-— 
wania programu. 


Procedura Move 


Wywołanie: Move(Src,Trg,CntD 

Przyjmuje się, że Src i Trg są nazwami zmiennych do— 
wolnego typu, a Cnt jest wyrażeniem typu integer. 

Wykonanie procedury Move powoduje przepisanie z obszaru, 
którego początek przydzielono zmiennej Src, do obszaru, któ- 
rego początek przydzielono zmiennej Trg, Cnt bajtów pamięci. 
Przepisanie jest poprawne nawet wtedy, gdy wspomniane obszary 
częściowo albo w całości pokrywają się. 


Procedura Randomize 


Wywołanie: Randomize 
Procedura Randomize jest bezparametrowa. 
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Wykonanie procedury  Randomize powoduje zainicjowanie 
generatora liczb przypadkowych daną o wartości przypadkowe j. 


16.3. FUNKCJE ARYTMETYCZNE 


Funkcja Abs 


Wywołanie: AbsCNum) 

Przyjmuje się, że Num jest wyrażeniem typu  reał albo 
integer. 

Rezultatem funkcji Abs jest dana takiego samego typu 
jak typ argumentu, o wartości równej wartości bezwzględnej 
argumentu, stanowiąca wartość bezwzględną danej reprezentowa— 
nej przez Num. Na przykład 

AbDSC-2) 2 

AbsCPi) = 3.1415926536 


Funkcja ArcTan 


Wywołanie: ArcTanć€Num). 

Przyjmuje się, że Num jest wyrażeniem typu reał albo 
integer. 

Kezultatem funkcji ArcTan jest dana typu reał stanowią 
ca arcus tangens danej reprezentowanej przez Num. Przykładowo 

ArcTan€0> = 0.0 

ArcTan€1.00 = Pi+4 


Funkcja Cos 


Wywołanie: Cos€Num) 

Przyjmuje się, że Num jest wyrażeniem typu  reał albo 
integer. 

Rezultatem funkcji Cos jest dana typu real stanowiąca 
cosinus danej reprezentowanej przez Num. Na przykład 

Cos€02 = 1.0 

Cos€(Pi)> = —1.0 


Funkcja Exp 


wywołanie: ExpCNum) 

Przyjmuje się, że Num jest wyrażeniem typu real albo 
tinteger. 

Rezultatem funkcji Exp jest dana typu reał uzyskana z 
podniesienia do potęgi Num podstawy  logarytmów naturalnych 
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e = 2.7182818285. Na przykład 
Exp<0> = 1.0 
Exp<-1.00 = 0.36787944117 


Funkcja Frac 


Wywołanie: FracćNum) 

Przyjmuje się, że Num jest wyrażeniem typu real albo 
integer. 

Rezultatem funkcji Frac jest dana typu reał stanowiąca 
część ułamkową danej reprezentowanej przez Num. Na przykład 

Frac(32 = 0.0 

FracCPŁO = Pi — 3.0 


Funkcja Int 


wywołanie: IRntCNum) 

Przyjmuje się, że Num jest wyrażeniem typu  reał albo 
integer. 

Rezultatem funkcji Int jest dana typu reał stanowiąca 
część całkowitą danej reprezentowanej przez Num. Na przykład 

IntC2> = 2.0 

IRtC-PID) = -—3.0 


Funkcja Ln 


Wywołanie: LŁnCNum) 

Przyjmuje się, że Num jest wyrażeniem typu reał albo 
integer. 

Rezultatem funkcji Łn jest dana typu real stanowiąca 
logarytm naturalny danej reprezentowanej przez Num. Przykła— 
dowo 

Łn(12 = 0.0 

=1 


Łn€3.02 „0986122887 


Funkcja Sin 


Wywołanie: SinCNum) 

Przyjmuje się, że Num jest wyrażeniem typu reał albo 
integer. 

Rezultatem funkcji Szin jest dana typu reał stanowiąca 
sinus danej reprezentowanej przez Num. Na przykład 

SŁNCOD = 0.0 

StiTnCPi/20 = 1.0 
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Funkcja Sqar 


wywołanie: Sqr<Num)o. 

Przyjmuje się, że Num jest wyrażeniem typu  reał albo 
integer. 

Rezultatem funkcji Sar jest dana takiego samego typu 
jak typ argumentu, stanowiąca kwadrat danej reprezentowane j 
przez Num. Na przykład 

SąTr<2»> = 4 

Sąr€2.0> = 4.0 


Funkcja Sqgrt 


wywołanie: Sqrt(CNumo) 

Przyjmuje się, że Num jest wyrażeniem typu reał albo 
integer. 

Rezultatem funkcji Sgrł jest dana typu reał, stanowiąca 
pierwiastek kwadratowy danej reprezentowanej przez Num. Przy— 
kładowo 

Sagrt(4> = 2.0 

Sąrt(4.0> = 2.0 


16.4. FUNKCJE SKAŁARNE 


Funkcja Odd 


Wywołanie: OddCNum) 

Przyjmuje się, że Num jest wyrażeniem typu tnteger. 

Rezultatem funkcji Odd jest dana typu boołean, wyraża— 
jąca wartość logiczną zdania "wyrażenie Num reprezentuje daną 
o wartości nieparzystej'. Na przykład 

Odd<3) = true 

OddX4)> = false 


Funkcja Pred 


wywołanie: PredCNum) 

Przyjmuje się, że Num jest wyrażeniem dowolnego typu 
porządkowego. 

Rezultatem funkcji Pred jest dana takiego samego typu 
jak typ argumentu, stanowiąca poprzednik danej  reprezentowa— 
nej przez Num w jego typie porządkowym. Na przykład 
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PredC'B) = "A? 
Pred(-202 = -21 


Funkcja Succ 


Wywołanie: SuccCNum) 

Przyjmuje się, że Num jest wyrażeniem dowolnego typu 
porządkowego. 

Kezultatem funkcji Succ jest dana takiego samego typu 
jak typ argumentu, stanowiąca następnik danej reprezentowane j 
przez Num w jego typie porządkowym. Na przykład 

Succ(false)> = true 

Succ(0> = 1 


16.5. FUNKCJE DO WYKONYWANIA KONWERSJI 


Funkcja Chr 


Wywołanie: ChrCNum) 
Przyjmuje się, że Num jest wyrażeniem typu integer. 
Rezultatem funkcji Chr jest dana typu char, reprezentu- 
jąca znak o kodzie Num. Na przykład 
Chr (652 > 4” 
Chrc27) LT 


Funkcja Ord 


wywołanie: OrdCNum) 

Przyjmuje się, że Num jest wyrażeniem dowolnego typu 
porządkowego. 

Rezultatem funkcji Ord jest dana typu integer, określa— 
jąca numer porządkowy danej reprezentowanej przez Num, w jego 
typie porządkowym. Na przykład 

OrdCtrue)> = 1 

Ordc-2) = -—2 


Funkcja Round 


wywołanie: RoundCNum) 

Przyjmuje się, że Num jest wyrażeniem typu real. 

Rezultatem funkcji Round jest dana typu integer o war— 
tości najbliższej wartości danej reprezentowanej przez  Num. 
Na przykład 

Round<5.52 = 6 

Round(-1.52 = —2 
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Funkcja Trunc 


wywołanie: TruncCNum) 
Przyjmuje się, że Num jest wyrażeniem typu real. 
Rezultatem funkcji Trunc jest dana typu integer stano— 
wiąca część całkowitą danej reprezentowanej przez  Num. Na 


przykład 
Trunc(3.14) = 3 
TruncC(-2.92 = —2 


16.6. FUNKCJE POMOCNICZE 


Funkcja Hi 


Wywołanie: HiCNum) 

Przyjmuje się, że Num jest wyrażeniem typu tnteger. 

Rezultatem funkcji Hi jest dana typu integer o wartości 
bardziej znaczącego bajtu danej reprezentowanej przez Num. Na 
przykład 

Hi(2560 =1 

HiC-102 = 255 


Funkcja KeyPressed 


Wywołanie: KeyPressed 

Funkcja KeyPressed jest bezparametrowa. 

Rezultatem funkcji KeyPressed jest dana typu  boołean 
wyrażająca wartość logiczną zdania "w buforze wejściowym kon— 
soli znajduje się nie wprowadzony jeszcze znak" 


Funkcja Ło 


Wywołanie: LŁoC(Num) 

Przyjmuje się, że Num jest wyrażeniem typu integer. 

Rezultatem funkcji Ło jest dana typu integer o wartości 
mniej znaczącego bajtu danej reprezentowanej przez  Num. Na 
przykład 

ŁOoCZ562 = 0 

ŁoC-102 = 255 


Funkcja Random 


Wywołanie: Random 
Random Num) 
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Przyjmuje się, że Num jest wyrażeniem typu tnteger. 

Rezultatem funkcji Random w wersji bezparametrowej jest 
dana typu reał o wartości przypadkowej większej lub równej 
0.0 i mniejszej niż 1.0 Rezultatem funkcji Random w wersji z 
parametrem jest dana typu integer o wartości przypadkowe j 
większej lub równej 0 i mniejszej niż Num. 


Funkcja ParamCount 


wywołanie: ParamCount 

Funkcja ParamCount jest bezparametrowa. 

Kezulttatem funkcji ParamCount jest dana typu tnteger 
określająca liczbę parametrów przekazanych programowi w chwi-— 
li jego wywołania. Zakłada się, że parametry zostały oddzie— 
lone spacjami lub znakami tabulacji. 


Funkcja ParamStr 


Wywołanie: ParamStr(CNum) 
Przyjmuje się, że Num jest wyrażeniem typu tnteger. 
Rezultatem funkcji ParamStr jest dana łańcuchowa repre— 
zentująca ten parametr przekazany programowi w chwili jego 
wywołania, który ma numer Num. zakłada się, że pierwszy para— 
metr ma numer 1. 


Funkcja SizeOf 


Wywołanie: SizeO0jfCNam). 

Przyjmuje się, że Nam jest nazwą zmiennej albo nazwą 
typu. 

Rezultatem funkcji StzeO0/ jest dana typu integer okre$ś- 
lająca liczbę bajtów pamięci przydzielonych zmiennej Nam albo 
liczbę bajtów pamięci niezbędnych do reprezentowania danej 
typu Nam. Na przykład 

S2 zeO0/f (boolean). 

Stze0/f(Cinteger> 


l 
D > 


Funkcja Swap 


Wywołanie: Swap€Numo) 

Przyjmuje się, że Num jest wyrażeniem typu integer. 

Rezultatem funkcji Swap jest dana typu integer, której 
bardziej znaczący bajt ma wartość Ło(Num, a mniej znaczący 
bajt ma wartość HiCNum>. Na przykład 

SUVapC2Z56Ó2 = 1 

Svap(1D> = 256 
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Funkcja UpCase 


wywołanie: UpCase(Chr) 

Przyjmuje się, że Chr jest wyrażeniem typu char. 

Rezultatem funkcji UpCase jest dana typu char, która 
jeśli Chr reprezentuje literę — jest literą dużą, a jeśli nie 
reprezentuje litery — jest taka sama jak dana reprezentowana 
przez Chr. Na przykład 

UpCaseC”a*> = A” 


UnpCaseC”.”>2 = ».” 
Przykład 
program Print Arguments; 
var 
Count : byte; 
begin 


Writeć  Arguments are: ”); 
for Count := 1 to ParamCount do 
WriteC” ”,ParamStrCCount DD 
end. 


e Jeśli program ParamArguments zostanie wywołany z ar— 
gumentami 
Jan Eva l1za 
to jego wykonanie spowoduje wyprowadzenie napisu 
Arguments are: Jan Eva l1za 
e jeśli zostanie wywołany bez argumentów, to jego wyko- 
nanie spowoduje wyprowadzenie napisu 
Arguments are: | 


17. WŁĄCZANIE ZBIORÓW 


Jedną z ważniejszych dyrektyw kompilatora jest dyrek” 
tywa włączenia zbioru. Ma ona postać 

€$I name » 
gdzie name jest nazwą zbioru. 

Zinterpretowanie takiej dyrektywy powoduje zastąpienie 
jej zawartością zbioru o nazwie name. Umożliwia to włączenir 
do programu uprzednio przygotowanych zestawów deklaracji albo 
bibliotek podprogramów w postaci źródłowej. Wymaga się  jedy- 
nie, aby zbiór włączany nie zawierał dyrektyw włączania zbio- 
rów. 

Należy uwzględnić także to, że jeśli nazwa name nie za- 
wiera trzyliterowego przyrostka, to nawias klamrowy kończący 
dyrektywę włączenia zbioru powinien być oddzielony od name 
przynajmniej jedną spacją. W przeciwnym razie klamra zamy- 
kaąjąca zostanie uznana za część nazwy zbioru. 


Przykład 

Jeśli przyjąć, że w zbiorze Siłnia.doc znajduje się tekst 
function Siłnia(Num byte) integer 
begin 


if Num 4 2 then Silnia 
else Silnia 


1 
Num * SiłniaCNum — 1) 


end; 
to skompilowanie programu 
program Demo; 
<$I Silłnia.doc » 
begin 
WritelnCSilnia<52) 
end. 


będzie miało taki sam skutek jak skompilowanie programu 
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program Demo; 
function SiłniaćNum : byte)> : tnteger; 
begin 

if Num < 2 then Siłnia :=1 

else Silnia := Num * SilniaC(Num — 1) 

end; 
begin 

WritelnC(Silinia(52) 
end. a 


18. NAKŁADKOWANIE PODPROGRAMOÓW 


Istotnym ograniczeniem systemu Turbo Pascal jest zało-— 
żenie, że rozmiar kodu programu wynikowego oraz rozmiar jego 
danych nie przekracza 46ÓK bajtów pamięci operacyjnej. Osła— 
bienie skutków tego ograniczenia można uzyskać posługując się 
nakł adkovwantiem. 

Nakładkowaniu mogą podlegać zarówno funkcje, jak i 
procedury. wymaga się jedynie, aby podprogramy nakładkowane 
nie były wywoływane rekurencyjnie oraz aby nie były przedmio— 
tem deklaracji zapowiadającycn. Nie stanowi to istotnego 
utrudnienia, ponieważ nic nie stoi na przeszkodzie zadeklaro— 
wania podprogramu nienakładkowego wywołującego  podprogram, 
który miał być np. wywołany rekurency jnie. 

Pewne trudności mogą powstać podczas wyszukiwania błę- 
dów w podprogramach nakładkowanych. zeby nie wdawać się w 
opisy Sposobów wykrywania takich błędów, wystarczy poprzestać 
na radzie, aby podprogramy zwykłe przekształcano w nakładko— 
wane dopiero po ich uruchomieniu. 

zasadę nakładkowania przedstawiono na rys. 18.1. Polega 
ona na tym, że obszar pamięci operacyjnej przydzielony pro" 
gramowi wynikowemu zostaje podzielony na dwa rodzaje obsza— 
rów: obszary, w których zostanie ulokowana część rezydency jna 
programu, i obszary, do których będą sprowadzane nakładki. 

Każda nakładka składa się z grupy podprogramów, której 
przypisano obszar nakładkovy. W każdej chwili wykonywania 
programu w obszarze nakładkowym może znajdować się co najwy- 
żej jeden podprogram grupy. Rozmiar obszaru nakładkowego jest 
tak dobrany, że mieści się w nim każdy z podprogramów grupy. 
Oznacza to, że oszczędność pamięci operacyjnej wynikająca z 
posłużenia się grupą nakładkową wyraża się różnicą między 
rozmiarem grupy a rozmiarem największej nakładki w grupie. 
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Obszar 
rezydency jny 

Obszar 
nakładkowy 1 


Grupa nakładek 1 


Nakładka 1 


Nakładka 2 


(——— 
Nakładka 3 
Obszar 
rezydency jny Grupa nakładek 2 
Nakładka 1 
Obszar ——— 
nakładkowy 2 


Nakładka 2 
Nakładka 3 


Obszar 
rezydency jny 
Nakładka 4 


Rys.18.1. zasada nakładkowania 


Ceną, jaką płaci się za oszczędność pamięci operacy j- 
nej, jest zakaz wzajemnego odwoływania się podprogramów grupy 
oraz konieczność wykonywania transmisji dyskowych podczas od— 
woływania się do tych programów, które należą do grupy nakła— 
dkowej, ale w chwili wywołania nie znajdują się w pamięci 
operacy jne jj. 

zasady tworzenia grup nakładkowych są bardzo proste. w 
celu utworzenia grupy wystarczy poprzedzić słowem kluczowym 
overlay jedną lub więcej następujących po sobie deklaracji 
podprogramów. Wszystkie takie podprogramy będą wówczas stano— 
wić grupę, zapamiętaną jako zbiór o nazwie programu głównego 
(dyrektywa M menu systemu> z trzycyfrowym przyrostkiem. Pier— 
wsza grupa uzyska nazwę z przyrostkiem .000, druga z przyro-— 
stkiem 001 itd. Jeśli między podprogramami nakładkowanymi wys— 
tąpią podprogramy nienakładkowane, to nakładkowane znajdą się 
w rozłącznych grupach. Zilustrowano to na rys. 18.2, na któ- 
rym przedstawiono strukturę programu wynikowego powstałego z 
programu 

program OverlłayProgram; 
overlay procedure One; 
begin 


end; 
overlay procedure Tvo; 


begin 


end; 
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procedure Middle; 
begin 


end; 
overlay procedure Three; 
begin 


end; 
overlay procedure Four; 
begin 


end; 
begin 


end. 


Over łayProgram 
Zbiór. 000 


L————————————— 


zbiór. 001 


EE 
L---—-—-————————— 
DOE 


Rys.18.2. Struktura programu OverłayProgram 


zasady tworzenia grup nakładkowych nie wykluczają moż— 
liwości tworzenia nakładek w obrębie podprogramów nakładko— 
wanych. Przedstawiono to na rys. 18.3 dla programu wynikowego 
powstałego z programu 


program NestedOverlays; 
overlay procedure One; 
begin 


end; 
overlay function TvoCNum : byte) : byłe; 
overlay function Three : reał; 


Nakładkowanie podprogramów 139 
begin 
end; 
overlay procedure Four; 


begin 


end; 
begin €Tvo> 


end; 
begin (NestedOverlays> 


end. 


zbiór. 000 


IJ o 
Tvo- Zbiór. 001 
początek 
Three 
Em 
| Teonkoniec Ko 


Rys.18.3. Struktura programu NestłedOverlays 


19. WYBRANE ROZSZERZENIA IMPLEMENTACY JNE 


System Turbo Pascal, rozumiany jako połączenie języka 
programowania i złączonego z nim edytora ekranowego, może być 
instalowany w Środowisku różnych systemów operacyjnych. W ka-— 
żdym z nich udostępnia on dodatkowe możliwości, specyficzne 
dla obranego systemu operacyjnego i kompilatora. Do możliwoś— 
ci tych należą między innymi: 


Jawne przydzielanie miejsca zmiennym programu. 
Dodatkowe funkcje i procedury systemowe. 
Bezpośrednie wywoływanie podprogramów systemowych. 
Programowanie w języku asemblera. 

e Aktywowanie innych programów. 


Każda z nich zostanie tu przedstawiona w postaci, w jakiej 
obowiązuje w systemie CP/j. 


19.1. JAWNE PRZYDZIELANIE MIEJSCA ZMIENNYM PROGRAMU 


Użycie w deklaracji pewnej zmiennej słowa kluczowego 
absolute umożliwia zarezerwowanie miejsca dla tej zmiennej w 
miejscu przydzielonym innej zmiennej albo w ustalonym obsza— 
rze pamięci operacy jne j. 

Deklaracja zawierająca słowo kluczowe absolute składa 
się z nazwy zmiennej deklarowanej, po której następuje  dwu- 
kropek, określenie typu zmiennej, słowo kluczowe absolute, 
określenie miejsca, które ma zostać przydzielone zmiennej i 
średnik. Określenie miejsca może mieć postać nazwy uprzednio 
zadeklarowanej albo postać adresu bezwzględnego wyrażonego za 
pomocą literału typu integer (Elwro 800 Jr> albo oddzielonych 
dwukropkiem numeru segmentu i przemieszczenia w segmencie 
CIBM PC2>. 
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Składnia 
dekłaracja-ze-słowem-absołlute: 
nazwa-dekłarowana : oznaczenie typu 
absolute określenie-miejsca 
nazwa-dekRlarovwana: 
identyfikator 
określenie-miejsca: 
nazwa-zmiennej 
łiterał 
nazva-łiterału 
nazwa-zmienne j: 
identyfikator 


Przykład (dla Elwro 800 Jro> 
var 
CharStr : stringló]j; 
StrLen : byte absolute CharStr; 
Buffer : array[O0..15] of byte 
absolute $%2000; 


function FunCvar IntVar : integer> : byte; 
var 

LSB : byłe absolute IntVar; 
begin 


if LSB = ŁoCIntVar> then 


end; 


e Pierwszy bajt obszaru pamięci operacyjnej, przydzie-— 
łonego zmiennej CharStr, pokrywa się z bajtem przydzielonym 
zmiennej StrŁen. Odwołanie do StrŁen reprezentuje zatem taką 
samą daną jak odwołanie LenghtCCharStr> oraz ordCCharStr[0]D. 

e Zmiennej Buffer zostanie przydzielony obszar pamięci 
operacyjnej rozpoczynający się od bajtu o adresie $%2000. 

e zmiennej ŁSB zostanie przydzielony ten sam bajt  pa- 
mięci operacyjnej, który został przydzielony mniej znaczącemu 
bajtowi zmiennej, z którą skojarzono parametr IntFar. Źź tego 
powodu relacja zawarta w funkcji Fun będzie zawsze prawdziwa. 

m 


19.2. DODATKOWE FUNKCJE I PROCEDURY SYSTEMOWE 


Funkcja Addr 


Wywołanie: 4AddrCNam> 
Przyjmuje się, że Nam jest nazwą zmiennej albo podpro— 
gramu. 


Wybrane rozszerzenia timplłementacyjne 142 


Rezultatem funkcji Addr jest dana wskazująca, określa— 
jąca adres obszaru pamięci przydzielonego zmiennej albo  pod-— 
programowi Nam. Na przykład 

Addr €Meml 2 ] >» 


Procedura OvrDrive 


Wywołanie: OvrDrivećDrv> 

Przyjmuje się, że Drv jest wyrażeniem typu tnteger. 

Wykonanie procedury OvrDrive powoduje, że w programie 
nakładkowanym nakładki będą poszukiwane w stacji dyskowej 
określonej przez Drv (O = stacja domniemana,1=A, 2=B itd.) 
Na przykład 

OvrDrive(2) 


10.3. WYWOŁYWANIE PODPROGRAMOÓW SYSTEMOWYCH CELWKO 800 JR> 


Bezpośrednie wywoływanie podprogramów systemowych zape— 
wniają procedury Bdos i Bios oraz funkcje Bdos, BdosHŁ, Bios 
i BiosłHŁ. 


Procedura Bdos 


Wywołanie: Bdos(CFun,ParD> 
Bdos<Fun) 

Przyjmuje się, że Fun oraz nie wymagane Par są wyraże— 
niami typu integer. 

Wykonanie procedury Bbdos powoduje załadowanie do reje— 
stru C€ procesora mniej znaczącego bajtu danej reprezentowane j 
przez Fun, a następnie przejście do wykonywania programu  po— 
cząwszy od adresu 5 w celu zrealizowania funkcji systemu BDOS 
określonej przez Fun. Jeśli procedura jest wywoływana z dwoma 
argumentami, to przed wykonaniem wspomnianego skoku następu je 
umieszczenie danej reprezentowanej przez Par w rejestrze DE. 


Funkcja Bdos 


Wywołanie: Bdos(Fun,ParD) 
BdosCFun). 
Przyjmuje sie, że Fun oraz nie wymagane Par są wyraże— 
niami typu integer. 
Skutki wywołania funkcji Bdos są takie same jak skutki 
wywołania procedury Bdos z takimi samymi argumentami.  Rezul— 
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tatem funkcji jest natomiast dana typu byłe pozostawiana 
przez Bdos w rejestrze 4A procesora. 


Funkcja BdosHL 


Wywołanie: BdosHLŁCFun,ParD 
BdosHLCFun) 

Przyjmuje się, że Fun oraz nie wymagane Par są wyraże— 
niami typu tnteger. 

Skutki wywołania funkcji BdosHŁ są takie same jak skut— 
ki wywołania funkcji Bdos z takimi samymi argumentami, z tą 
różnicą, że rezultatem funkcji jest dana typu integer  pozo- 
stawiana przez BDOS w rejestrach HŁ procesora. 


Procedura Bios 


wywołanie: Bios(Fun, Par) 
Bios(Cłun) 

Przyjmuje się, że Fun oraz nie wymagane Par są wyraże— 
niami typu integer. 

Wykonanie procedury Bios powoduje wykonanie funkcji 
podsystemu BIOS, która ma numer Fun. Jeśli posłużono się ar- 
gumentem Par, to przed wykonaniem tej czynności w rejestrach 
BC procesora jest umieszczana dana reprezentowana przez Par. 


Funkcja Bios 


Wywołanie: Bios(Fun,ParD 
Bios(CFun) 

Przyjmuje się, że Fun oraz nie wymagane Par są wyraże— 
niami typu integer. 

Skutki wywołania funkcji Bios są takie same jak skutki 
wywołania procedury Bios z takimi samymi argumentami.  Rezul-— 
tŁatŁem funkcji jest natomiast dana typu byte pozostawiana 
przez BIOS w rejestrze 4 procesora. 


Funkcja BiosHŁ 


wywołanie: BiosHLCFun,ParD 

Przyjmuje się, że Fun oraz nie wymagane Par są wyraże— 
niami typu integer. 

Skutki wywołania funkcji BiosHŁ są takie same jak skut— 
ki wywołania funkcji Bios z takimi samymi argumentami, z tą 
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różnicą, że rezultatem funkcji jest dana typu integer  pozo- 
stawiana przez BIOS w rejestrach HŁ procesora. 


190.4. PROGRAMOWANIE W JĘZYKU ASEMBLERA CELWRO 800 JR> 


Niekiedy zachodzi potrzeba dołączenia do programu napi— 
sanego w języku Turbo Pascal podprogramu napisanego w asem- 
blerze albo przynajmniej posłużenia się wstawką asemblerową. 
Gelowi temu służą konstrukcje językowe zawierające słowa 
kluczowe external i inline. 

Jeśli zamiast bloku stanowiącego ciało podprogramu wy— 
stępuje konstrukc ja 

external literał-typu-integer 
to oznacza to, że podprogram jest napisany w języku asemble— 
rowym i znajduje się w pamięci operacyjnej pod adresem okreś— 
lonym przez literał. Wymaga się, aby wykonanie takiego  pod- 
programu nie spowodowało zmiany rejestru SP (rozmiaru stosu). 


Przykład 
function FactoriallArg : byte) : tnteger; 
external %6000; 


e Część deklaracyjną i wykonawczą funkcji  Factorial 
zastąpiono konstrukcją zawierającą słowo kluczowe external. 

e Funkcja Factorialł jest napisana w języku asemblero— 
wym, a jej kod znajduje się w pamięci operacyjnej począwszy 
od adresu $*6000. m 


O ile konstrukcja external jedynie wskazuje miejsce, w 
którym znajduje się podprogram asemblerowy, o tyle instrukcja 
inline umożliwia wygenerowanie kodu asemblerowego. 

Instrukcja inline składa się ze słowa kluczowego inline 
bezpośrednio po którym następuje ujęty w nawiasy okrągłe ciąg 
elementów kodu. Elementy kodu są oddzielone kreskami  ukośny— 
mi, a każdy z nich składa się z elementów danych oddzielonych 
od siebie znakami + (plus> albo — (minus). 

Elementem danych jest literał typu integer, identyfika— 
tor zmiennej, identyfikator podprogramu oraz wyrażone za po- 
mocą znaku * (gwiazdka) oznaczenie licznika instrukcji. 


Przykład 
inlineC20/8$40/Fun=2/*+3) a 


Każdy element danych generuje jeden bajt albo jedno 
słowo (dwa bajty” kodu. Każda wygenerowana dana wynika z wy- 
konania działań na elementach danych. Przyjmuje się, że iden— 
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tyfikator zmiennej albo podprogramu reprezentuje adres tej 
zmiennej albo podprogramu. Analogicznie przyjmuje się, że oz- 
naczenie licznika instrukcji reprezentuje adres tego naj- 
bliższego bajtu pamięci, w którym zostanie umieszczony wyge- 
nerowany kod. 

Jeśli element kodu składa się wyłącznie z  literałów i 
separatorów, a jego wartość mieści się w zakresie 0..255, to 
zostanie wygenerowany jeden bajt kodu. Jeśli wartość wykracza 
poza ten zakres oraz jeśli element kodu zawiera nazwy zmien— 
nych lub podprogramów albo odwołania do licznika instrukcji, 
to jest generowane słowo. W słowie Łym bajt mniej znaczący 
jest generowany przed bajtem bardziej znaczącym. 

Przytoczone domniemania liczby generowanych bajtów kodu 
mogą zostać zmienione, jeśli przed elementem kodu zostanie 
umieszczony znak < (mniejsze> albo > (większe>. W pierwszym 
przypadku zostanie wygenerowany tylko mniej znaczący z tych 
bajtów, w których jest reprezentowana wartość kodu, a w dru 
gim dwa bajty i to nawet wtedy, gdy drugi z nich (bardziej 
znaczący) repezentuje daną o wartości 0. 


Przykład 
inline<>$%12/<%3456) 


e Pierwszy element kodu reprezentuje daną jednoba jtową, 
ale wobec użycia znaku > (większe) generuje dwa bajty: $12 i 
$%00. 

e Drugi element kodu reprezentuje daną dwubajtową, ale 
wobec użycia znaku < (mniejsze> generuje jeden bajt: $%56. 

e Przytoczona instrukcja inline generuje trzy bajty ko— 
du: $%12, $00 i 856, w podanej kolejności. 

e Gdyby rozpatrywaną instrukcję zmieniono do postaci 

inlineć$12/%83456) 

to generowałaby ona trzy bajty: 812, $56 i 934. m 


Przykład Cpodano wg Turbo Pascal Reference Manual, wersja 
3.0, rozdz. 22 — za zgodą Borland International 


type 
AnyStritng = stringl255]; 
procedure ToUpper(var Str : AnyStringD; 
begin 
inline( 
%2a/Str/ 
85467 
$%04/ 
*05/ 
$ca/*+20/ 
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23/ 
$re/ 
$fe/$61/ 
$da/*-9/ 
8Tf'e/$7rb/ 
%d2/*-—14/ 
%dó/%207 
877 
%3c/*-20) 
end; 


e Wykonanie przytoczonej procedury powoduje zamianę ma— 
łych liter zmiennej łańcuchowej, z którą skojarzono parametr 
Str, na duże. 

e Elementy kodu zawarte w instrukcji inline generują 
następujący podprogram asemblerowy 


LD HL, CStr) 


LD B,CHLD> 
ING B 

Li: DEC B 
JP 2z,L2 
INC HL 
LD A,CHLD 
GP a” 
JP G,L1 
GP "”z'+1 
JP NG,Li 
SUB 20H 
LD CHL> A 
JP Ll 

L2: m 


19.5. AKTYWOWANIE INNYCH PROGRAMOW 


w programach zapisanych w języku Turbo Pascal można po— 
sługiwać się dwiema dodatkowymi procedurami umożliwiającymi 
aktywowanie innych programów. Wywołania tych procedur mają 
postać 

Execute(CFiłeVarD> 
oraz 

ChatnCFilevarD> 
gdzie FiłeVar jest nazwą zmiennej plikowej identyfiku jącej 
zbiór zawierający program, który ma zostać wykonany jako nas— 
tępny po programie właśnie wykonywanyn. 

w przypadku użycia procedury Execute program ten 
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powinien być zawarty w zbiorze z rozszerzeniem .GOM, a w 
przypadku procedury Chatn powinien być zawarty w zbiorze z 
rozszerzeniem .CHN. 

Program wywołany za pośrednictwem procedury Chain mo- 
że komunikować się z programem wywołującym za pomocą zmien— 
nych globalnych albo za pomocą zmiennych znajdujących się 
pod ustalonymi adresami. zmienne globalne, o ile zostaną wy- 
korzystane, powinny zostać zadeklarowane jako pierwsze, 
zarówno w programie wywołującym, jak i wywoływanym, i to w 
takiej samej kolejności. Po spełnieniu tego wymagania odwoła— 
nia do zmiennych występujące w obu programach dotyczą tych 
samych danych. 

Przykład. Przedstawiono dwa programy, z których pierwszy 
przekazuje drugiemu daną łańcuchową oraz daną całkowitą 
program First; 
var 
ŁastName : string[8]1; 
Age : byte; 
NameFiłe : file; 


begin 
WriteC Jan"); 
ŁastName := "Bielecki >; 
Age := 44; 


AssignCNameFile, *”Second.chn'D>; 
ChainCNameFile) 
end. 
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program Second; 


var 
SurName : stringl81; 
Age : byte; 

begin 


WritełnCSurName,  1s”,4Age :3, nov”) 
end. 


e Przyjęto, że program Second zostanie po  skompilowa— 
niu umieszczony w zbiorze Second.chn. 

e Zmienna o wartości "Biełeckti” jest w programie First 
reprezentowana przez nazwę ŁastName, a w programie Second 
przez nazwę SurName. 

e Wykonanie obu programów spowoduje wyprowadzenie napi— 
su 

Jan Biełecki is 44 now a 


20. REPREZENTOWANIE DANYCH 


20.1. DANE TYPU PORZĄDKOWEGO 


Dane typu porządkowego są reprezentowane w jednym albo 
w dwóch bajtach pamięci operacy jnej. 

w jednym bajcie są reprezentowane dane typu char, dane 
typu wyliczeniowego związanego ze zbiorem liczącym nie więcej 
niż 256 elementów oraz dane typu okrojonego min. .max, takiego, 
że zarówno ordćmin)>, jak i ord(max> należy do przedziału 0.. 
255. W szczególności w jednym bajcie są więc reprezentowane 
dane typu boołean i byte. 

Ww dwóch bajtach są reprezentowane dane typu integer, 
dane typu okrojonego, które nie mogą być reprezentowane w je— 
dnym bajcie, oraz dane typu wyliczeniowego o więcej niż 256 
elementach. W przypadku danych zajmujących dwa bajty mniej 
znaczącym bajtem danych jest pierwszy z nich. 


Przykład 
type 
Cołor = (CRed,Green,Błue,Yelłovw, Orange); 
Hue = Green. .Yellow; 
Sełector = (enum,card,bool); 
union = record 
case Selector of 
enum: CRng : Hue; 
card: CInt : tnteger); 
booł: (Log : boolean) 
end; 
const 


łłueVar : union = (Rng : Green); 
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begin 
with HueVar do 
WriteCint ,Łog :5) 
end. 


e Ponieważ ord(Green)<=255 oraz ord(Telłov)<=255, pole 
Rng typu Hue jest reprezentowane w jednym bajcie. 
e Mniej znaczący bajt pola Int pokrywa się z bajtem po— 
la Kng i bajtem pola Log. 
e wykonanie instrukcji Write powoduje wyprowadzenie na— 
pisu 
1 TRUE s 


20.2. DANE TYPU RZECZYWISTEGO 


Dane typu reał są reprezentowane w 6 bajtach pamięci 
operacy jne jj. 

Dane te składają się z jednobajtowego wykładnika i pię— 
ciobajtowej mantysy. Pod najniższym adresem pamięci występu je 
wykładnik, a za nim mantysa, w kolejności od bajtu najmniej 
znaczącego do najbardziej znaczącego. Wartość wykładnika jest 
reprezentowana z przesunięciem $80, a mantysa jest znormali— 
zowana i pozbawiona najbardziej znaczącego bitu. Bit ten jest 
wykorzystany do reprezentowania jej znaku. Dana rzeczywista 
typu reał o wartości 0.0 jest reprezentowana przez mantysę i 
wykładnik składające się z samych bitów O. 


Przykład 
type 
union = record 
case boołean of 
fałse: CFłoat : real); 
true: (Arr : array[O. .5] of byte) 
end; 
const 
RealVar : union = (Arr : ($%83,0,0,0,0,%802); 
begin 
with RealFar do 
WriteCFloatD 
end. 


e Pierwszy bajt zmiennej KealFfar jest daną bajtową o 
wartości %80, a więc reprezentuje wykładnik 3. 
e Bajt o wartości $%80 jest najbardziej znaczącym bajtem 
mantysy. Reprezentuje on znak — (minus) mantysy oraz mantysę 
1000000060 000000060 00000000 00000000 
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Najbardziej znaczący bit tego bajtu reprezentuje znak manty— 
sy, tu — (minus). 

e Ponieważ mantysa ma wartość —0.5, a wykładnik ma war— 
tość 3, dana początkowa przypisana zmiennej ReałVar ma war— 


tość —0.5 * 2% = -4.0. 
e Wykonanie instrukcji Write powoduje wyprowadzenie 
liczby —4.0. a 


20.3. DANE TYPU ŁANCGUCHOWEGO 


Dane typu stringln] są reprezentowane w n+1 bajtach pa— 
mięci. 

Pierwszy bajt danej łańcuchowej określa liczbę znaków 
tej danej. 


Przykład 
const. 
Strvar : stringl5] = "Janek; 
procedure CutOfjfC(var Par); 
var 
Łen : byte absolute Par; 


begin 
Łen := Łen — 2 
end; 
begin 
WritełnCStrVarD)>; 
CutOfjfCStrVar)>; 
WriteCStrVar> 
end. 


e Operacja na zmiennej Łen jest w istocie operacją na 
najbardziej znaczącym bajcie zmiennej StrVar. 
e wykonanie przytoczonego programu powoduje wyprowadze— 
nie napisu 
Janek 
Jan m 


20.4. DANE TYPU MNOGOŚCIOWEGO 


Dane typu mnogościowego, bazowane na typie porządkowym 
o najmniejszym elemencie min i największym elemencie max zaj— 
mu ją 

ordimax> div 8 — ordćtmin> div 8 + 1 
bajtów pamięci. 
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Dane mnogościowe są reprezentowane w taki sposób, jakby 
bazowy typ porządkowy składał się z 256 elementów. Ponieważ 
wymagałoby to zarezerwowania dla danej 32 bajtów pamięci, z 
których wiele nie byłoby w większości przypadków używanych, z 
tych 32 bajtów odrzuca się te bajty skrajne, których wartość 
nigdy nie ulega zmianie. 

w szczególności dana typu set of 10..16 nie jest repre— 
zentowana w postaci 32-bajtowej (literami x oznaczono aktywne 
pozycje dane j) 


00000000 ... 00000000 0000000x xxxxxx00 00000000 
lecz w postaci 2—ba jtowe j 
O0G0000x xxxxxx00 


w kolejności od bajtu najmniej znaczącego do najbardziej zna— 
czącego. 


Przykład 
type 
union = record 
case boolean of 
false: (aSet : set of 10..16)D; 
true: (anint : tnteger> 
end; 
const 
SetVar : union = (aSet :1[161D; 
begin 
with Setłar do 
VriteCanIint> 
end. 


e Pole aSet zajmuje 2 bajty i jest reprezentowane w pa— 
mięci operacyjnej w postaci 00000000 0GGOO0GO1. 

e Wykonanie instrukcji Write powoduje wyprowadzenie 
liczby 256. | 


20.5. DANE WSKAZU JĄCE 


Dane wskazujące są reprezentowane w 2 bajtach pamięci. 
Każda z nich jest reprezentowana tak jak dana typu tnteger i 
określa adres pamięci operacyjnej. Dana reprezentowana przez 
nil składa się z samych bitów O. 


Przykład 
type 
union = record 
case boolean of 


Reprezentowanie danych 152 


false: (Ref : byte); 


true: (Int : integer) 
end; 
const 
PtrVar : union = CInt : 02; 
begin 
WriteCPtrVar".Rej = niLo> 
end. 


e Zmienna PtrVar zajmuje 2 bajty. 
e Wykonanie instrukcji Write powoduje wyprowadzenie 
napisu TRUE. m 


20.6. TABLICE 


Elementy tablic są rozmieszczone w pamięci operacy jne j 


wierszami. 
Przykład 
type 
unton = record 
case boolean of 
false: CArr : arraylboalean, 
boolean] of byte); 
true: CVec : arrayl(1..41] of byte) 
end; 
const 
ArrVar : union = (Vec : 11,12,21,22); 
var 
Index : 1..4; 
begin 
with ArrVar do 
for Index := 1 to 4 do 
WriteCVec[Index1l :3)> 
end. 


e wykonanie instrukcji Write powoduje wyprowadzenie 
liczb 11, 12, 21, 22. m 


20.7. DANE REKORDOWE 


Pola rekordów są rozmieszczone w pamięci operacyjnej w 
kolejności ich wyszczególnienia w deklaracji. Jeśli rekord 
nie zawiera wariantów, to jego rozmiar jest równy sumie  roz- 
miarów pól. W przeciwnym razie rozmiar rekordu jest równy sSu- 
mie rozmiaru części stałej i rozmiaru tego z wariantów, który 
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wymaga najwięcej miejsca. Zarówno rekordy bez wariantów, jak 


i rekordy z wariantami są stałego rozmiaru. Informac ja 
jest istotna z punktu widzenia operacji wejścia/wy jścia. 
Przykład 
var 
RecVar : record 
case Selector : integer of 


6: CArr : arrayl1..3,1..2] of byte); 
8: (CaSet : set of A..”25) 
end; 
begin 
with RecVar do 
WriteC(SizeOfCRecVar), 
SzzeOf(Arr> :2, 
StzeOf(aSet> :2) 
end. 


e Część stała rekordu RecVar ma rozmiar 2 bajty. 

e Pierwszy wariant tego rekordu ma rozmiar 6 bajtów. 
e Drugi wariant ma rozmiar 8 bajtów. 

e Rekord ma rozmiar 10 bajtów. 


ta 


e wykonanie instrukcji Write powoduje wyprowadzenie 


liczb 10, 6 i 8. 
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DODATEK A. 


TABLICA KODU ASCII 


Hex Char 
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w=-AN 4 « £ <CEC GOA HOA0O BH IB HK KG FR MO QO0 VU W 


nn 


(ds DEL C*)> 


> 
? 
© 
A 
B 
c 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
[0 
P 
Q 
R 
S 
T 
U 
V 
LJ 
x 
Y 
4 


Uwaga. W systemie CP/J nie implementowano kodów oznaczonych 
symbolem *. Znaki ” i DEL zastąpiono znakami w nawiasach 


DODATEK B. 


O NOW EO DN te 


o 


WYKAZY BŁĘDÓW 


BŁĘDY SYGNALIZOWANE PODCZAS KOMPILOWANIA PROGRAMÓW 
ćw terminologii projektantów Elwro 800 Jr> 


Oczekiwany 
Oczekiwany 
Oczekiwany 
Oczekiwany 
Oczekiwany 
Oczekiwany 
Oczekiwany 
Oczekiwany 
Oczekiwany 
Oczekiwana 
Oczekiwane 
Oczekiwane 
Oczekiwane 
Oczekiwane 
Oczekiwane 
Oczekiwane 
Oczekiwane 
Oczekiwane 
Oczekiwana 
Oczekiwana 
Oczekiwane 
Oczekiwana 
Oczekiwana 
Oczekiwane 
Oczekiwana 
Oczekiwana 
Oczekiwana 
Oczekiwany 


”BEGIN"” 

»DO? 

>END>” 

>OF” 

*THEN>" 

>TO" lub *”DOWNTO?” 

wyrażenie boole'owskie 

zmienna plikowa 

stała całkowita 

wyrażenie całkowite 

zmienna całkowita 

stała całkowita lub rzeczywista 
wyrażenie całkowite lub rzeczywiste 
zmienna całkowita lub rzeczywista 
zmienna wskazująca 

zmienna rekordowa 

typ prosty 


Błędy Rompilowania programów 157 


31 
32 
33 
34 
35 
36 
37 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
60 
ó1 
62 
63 
64 


65 
Ó6 
Ó7 
68 
69 
(au 
1 
r2 
3 
T4 
75 
90 
91 
97 


Oczekiwane wyrażenie proste 

Oczekiwana stała łańcuchowa 

Oczekiwane wyrażenie łańcuchowe 

Oczekiwana zmienna łańcuchowa 

Oczekiwany identyfikator pliku tekstowego 
Oczekiwany identyfikator typu 

Oczekiwany identyfikator pliku bez typu elementów 
Niezdefiniowana etykieta 

Nieznany identyfikator lub błąd składniowy 
Nieznany typ wskazujący 

Powtórzona etykieta lub identyfikator 
Niewłaściwy typ 

wartość stałej poza zakresem 

Błąd typu stałej lub wyróżnika CASE 
Niewłaściwy argument lub operator 
Niewłaściwy typ wyniku 

Niewłaściwa długość łańcucha 

Niewłaściwa długość stałej łańcuchowej 
Niewłaściwy typ bazowy typu okrojonego 
Górne ograniczenie mniejsze od dolnego 
Słowo zarezerwowane 

Niewłaściwe przypisanie 

Stała łańcuchowa przekracza wiersz 

Błąd w stałej całkowite j 

Błąd w stałej rzeczywiste j 

Niewłaściwy znak w identyfikatorze 

Stałe nie są tutaj dozwolone 

zmienne plikowe i wskazujące nie są tutaj dozwolone 
Zmienne strukturalne nie są tutaj dozwolone 
Pliki tekstowe nie są tutaj dozwolone 

Pliki bez typu elementów i tekstowe — tutaj niedo— 
zwolone 

Pliki bez typu elementów nie są tutaj dozwolone 
Operacje we/wy nie są tutaj dozwolone 
źmienne plikowe wymagają deklaracji VAR 
Pliki nie mogą być składnikami pliku 
Niewłaściwe przyporządkowanie pól 

Zbiór za duży 

Niewłaściwe GOTO 

Etykieta spoza bieżącego bloku 
Niezdefiniowana procedura FORWARD 

Błąd INLINE 

Niewłaściwe użycie ABSOLUTE 

Nieznana zmienna plikowa 

Nieoczekiwany koniec programu 

za dużo zagnieżdżonych WITH 
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98 Przepełnienie pamięci 
99 Przepełnienie kompilatora 


B.2. BŁĘDY SYGNALIZOWANE PODCZAS WYKONYWANIA PROGRAMÓW 


Błędy, które mogą wystąpić podczas wykonywania progra— 
mów dzielą się na błędy fatalne i błędy operacji wejścia/vyj- 
ścia. 

Błędy fatalne i błędy operacji wejścia/wyjścia są 
sygnalizowane za pomocą jednakowego napisu: 

Wykryto błąd NN, PC=addr 


*przerwanie* 


w którym NN jest numerem błędu, a addr jest adresem tego 
miejsca w programie, gdzie wykryto błąd. 


Błędy fatałne 


01 Nadmiar stałopozycy jny. 

02 Dzielenie przez zero. 

03 Błąd argumentu funkcji Sqrt. 

04 Błąd argumentu funkcji Łn. 

10 Próba utworzenia danej łańcuchowej o rozmiarze prze— 


czającym 255 znaków. Próba konwersji danej łańcucho— 
wej, reprezentującej więcej niż jeden znak, w daną zna— 


kową. 
90 Niewłaściwy indeks w odwołaniu do tablicy. 
91 Próba przypisania danej spoza dopuszczalnego zakresu. 
92 Wartość argumentu funkcji Trunc albo Round spoza do-— 


puszczalnego zakresu. 
FF Brak wolnego miejsca w pamięci. 


Błędy operacji wejścia/vyjścia 


01 Plik nie istnieje. 

02 Płik nie jest otwarty. 

03 Plik nie jest otwarty do wyprowadzania. 
04 Plik nie jest otwarty. 

10 Błąd reprezentacji liczby. 

20 zabroniona operac ja. 

21 zabroniona operac ja. 

22 zabronione użycie procedury 4Assign. 

90 Niezgodność rozmiarów rekordów. 


91 Próba wykroczenia poza plik. 


Błędy wykonywania programów 


99 
FO 
F1 
F2 
FF 


Nieoczekiwany 
Błąd operacji 
Przepełnienie 
Przepełnienie 
Brak pliku. 


koniec pliku. 


zapisu na dysk. 


katalogu. 
pliku. 


159 


DODATEK C. EDYTOR EKRANOWY 


C.1. POJĘCIA PODSTAWOWE 


Edytor ekranovy jest wzorowany na edytorze tekstów 
WordStar wprowadzonym na rynek mikrokomputerowy już w 1977 r. 
Główną zaletą, która w znacznej mierze przyczyniła się do 
jego rozpowszechnienia, było założenie natychmiastowej edycji 
ekranowej oraz przyjęcie rozwiązań niezależnych od sprzętu 
niezbędnego do wdrożenia edytora. Mimo pojawienia się 
konkurencyjnych implementacji edytorów tekstów, wordStar 
zachował swoją wiodącą pozycję i w postaci kilku mutacji jest 
dostępny zarówno na mikrokomputerach 8-bitowych, jak 1 
16-bitowych. 

W odróżnieniu od wielu innych edytorów edytor ekranowy 
jest zorientowany na wprowadzanie tekstu, a nie na przy jmowa— 
nie dyrektyw przetwarzania tekstu. Konsekwencją tego założe— 
nia jest. sterowanie operacjami na tekście za pomocą znaków, 
które nie mają bezpośredniej reprezentac ji graficznej. Takie 
znaki będą nazywane znakami sterującymi, a ich użycie będzie 
się sprowadzać do jednoczesnego naciśnięcia klawisza znaku 
CTRL oraz jednego albo dwóch klawiszy znaków  literowych  do— 
datkowych. Ponieważ w dalszym opisie odwoływanie się do 
znaków sterujących będzie występować bardzo często, zostanie 
przyjęta umowa oznaczania znaków sterujących za pomocą Ssym- 
bolu ©” reprezentującego naciśnięcie klawisza CTRL. w 
szczególności nadanie znaku sterującego CTRL A będzie w 
skrócie nazywane wydaniem dyrektywy A, co uzyskuje się przez 
naciśnięcie klawisza CTRL i jednoczesne naciśnięcie klawisza 
oznaczonego literą A. W tych przypadkach, gdy sterowanie 
edytorem odbywa się za pomocą pary znaków sterujących, np. 
"KB (także nazywanej dyrektywą), należy nacisnąć klawisz 
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GTKL, a następnie kolejno klawisze oznaczone literami K i B 
podczas naciskania drugiego 2z tych klawiszy zbędne jest 
wciskanie klawisza CTKLV. 

Typowa sesja współpracy z edytorem ekranowym zaczyna 
się od wydania w głównym menu dyrektywy E. Powoduje to wywo— 
łanie edytora i umieszczenie na ekranie monitora początkowe j 
części zbioru roboczego zidentyfikowanego uprzednio za pomocą 
dyrektywy KR. Po wprowadzeniu tekstu tego zbioru albo po doko— 
naniu w nim zmian należy posłużyć się dyrektywą edytora "KD. 
Spowoduje to zakończenie edycji i powrót do głównego menu. W 
tym momencie można posłużyć się dyrektywą S — w celu zapa— 
miętania zbioru roboczego na dysku. 

Bezpośrednio po wywołaniu edytora można traktować  kom— 
puter jako wielofunkcyjną maszynę do pisania. Maszyna taka ma 
tę właściwość, że każdy wprowadzony znak pojawia się natych— 
miast na ekranie. Błędnie wprowadzone pojedyncze znaki można 
usuwać za pomocą klawisza DEL. Jeśli błędy występują we 
wcześniej wprowadzonych słowach, to można przesunąć kursor 
nad takie słowa i dokonać natychmiastowej poprawki. Zasady 
takiego poprawiania zostaną omówione w następnym punkcie. 


G.2. WPROWADZANIE, ZMIANY I USUWANIE PORCJI TEKSTU 


Jak już wyjaśniono, bezpośrednio po aktywowaniu edytora 
następuje przejście do tworzenia albo aktualizowania tekstu. 
Odbywa się to przez wprowadzanie słów albo operowanie na Ssło-— 
wach już wprowadzonych. Pod pojęciem słowa jest rozumiany 
dowolny ciąg znaków zakończony spacją albo jednym ze znaków 
przestankowych, np. , (Cprzecinek)»>, . Ckropka>, : (dwukropek), 

apostrof». W sensie podanej definicji, przykładowy program 


program JanB; 
begin 

WriteC'I am JanB') 
end. 


składa się ze słów 
program 
JanB; 
begin 
Yritel"” 
F4 
am 
JanB” 
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) 
end. 


w obrębie tekstu wyświetlanego na ekranie monitora  je— 
den ze znaków jest wyróżniony za pomocą kursora. Operacje na 
znakach i słowach są zawsze wykonywane w odniesieniu do tego 
znaku, zawierającego go Słowa albo wiersza. Przesuwanie kur— 
sora może także dotyczyć pojedynczych znaków, słów albo wier— 
szy. Może ponadto dotyczyć ekranów, tj. porcji tekstu obe jmu— 
Jących większą liczbę wierszy, zbliżoną do pojemności ekranu 
monitora. 

Przesunięcie kursora o jedną pozycję w lewo, w prawo, w 
górę i w dół odbywa się za pomocą klawiszy strzałkowych lub 
dyrektyw 'E, ”S, ”D i "X, których klawisze tworzą romb 

R E 

+ > S D 

* X 
Jak łatwo się domyślić, dyrektywa "E przesuwa kursor o jeden 
wiersz w górę, dyrektywa "X przesuwa go o jeden wiersz w dół, 
a dyrektywy ”S i ”D przesuwają kursor odpowiednio o jedną po- 
zycję w lewo i o jedną pozycję w prawo. Dzięki takiemu  roz— 
wiązaniu o funkcji dyrektywy decyduje nie mnemonika nazwy jej 
klawisza, lecz położenie klawisza w przytoczonym układzie 
czterokierunkowym. 

Przesuwanie kursora o pojedyncze słowa jest realizowane 
za pomocą dwóch dodatkowych dyrektyw A i ©F 


E 
A S D F 
x 


Użycie dyrektywy "A powoduje przesunięcie kursora o jedno 
słowo w lewo, a użycie dyrektywy 'F powoduje przesunięcie go 
o jedno słowo w prawo. 

Kolejna para dyrektyw — R i 'C — służy do przesunięcia 
kursora odpowiednio do poprzedniego i następnego ekranu. Kla— 
wisze tych dyrektyw są usytuowane z prawej Strony osi wyzna— 
czonej przez klawisze E-X. Z lewej strony tej osi znajduje 
się para klawiszy, które przesuwają tekst na ekranie o jeden 
wiersz: W w dół i Z w górę. Tak więc ostatecznie układ kla— 
wiszy używanych do sterowania położeniem kursora oraz okre- 
ślających porcję wyświetlanego tekstu przybiera postać 

w E R 


A S D F 
(4 X (© 
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Układ ten jest łatwy do zapamiętania i nie wymaga identyfiko— 
wania klawiszy z opatrującymi je napisami. 

z prawej strony tego zestawu klawiszy znajdują się trzy 
klawisze dyrektyw 'T, (CY, ”G, tworzące układ 


T Y 
G 


Użycie dyrektywy G powoduje usunięcie znaku wyróżnionego 
przez kursor, użycie dyrektywy "'T powoduje usunięcie znaków 
od znaku wyróżnionego przez kursor do końca słowa, a użycie 
dyrektywy 'Y powoduje usunięcie wiersza, w którym znajduje 
się kursor. 

Uzupełnieniem przytoczonego repertuaru dyrektyw jest 
znak sterujący DEL, którego naciśnięcie powoduje usunięcie 
znaku poprzedzającego znak wyróżniony przez kursor. 


Podsumowanie 

E Przesunięcie kursora o jeden wiersz do góry, z zachowa— 
niem pozycji kolumny. 

"X Przesunięcie kursora o jeden wiersz do dołu z zachowa— 
niem pozycji kolumny. 

*S Przesunięcie kursora o jedną pozycję w lewo. Jeśli 


przed przesunięciem kursor znajdował się w Sskrajnej le— 
wej pozycji, to pozycja kursora nie zmieni się. 

*”D Przesunięcie kursora o jedną pozycję w prawo. Jeśli 
przed przesunięciem kursor znajdował się v skrajnej 
prawej pozycji, to pozycja kursora nie zmieni się. 

"A Przesunięcie kursora do początku słowa w lewo. Jeśli 
kursor znajduje się w skrajnej lewej kolumnie, to 
jest przesuwany do końca tekstu w poprzedniej linii. 

©F Przesunięcie kursora do początku słowa w prawo. Jeśli 
kursor znajduje się na końcu tekstu, to jest przesuwany 
do początku nowej linii. 


"R Przesunięcie 'okna', przez które jest widziany doku 
ment, o jeden ekran do góry. 

"CG Przesunięcie "okna", przez które jest widziany  doku— 
ment, o jeden ekran do dołu. 

"W Przesunięcie tekstu na ekranie o jeden wiersz w dół. 

"z Przesunięcie tekstu na ekranie o jeden wiersz do góry. 

-G Usunięcie znaku wyróżnionego przez kursor. 

*T Usunięcie znaku wyróżnionego przez kursor oraz następu— 


jących po nim znaków danego Słowa. 
ZY Usunięcie wiersza, w którym znajduje się znak wyróżnio- 
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ny przez kursor. 
DEL Usunięcie znaku poprzedzającego znak wyróżniony przez 
kursor. 


Przytoczony tu repertuar dyrektyw, umożliwiający wizua— 
lizację i usuwanie dowolnych partii tekstu, został w edytorze 
WordStar wzbogacony dyrektywą 'N do wstawiania pustych wier—- 
szy oraz dodatkowym zestawem dyrektyw realizujących funkcje 
zbliżone do poprzednio omówionych, tyle że z większym  'sko— 
kiem'. Każda z takich dyrektyw składa się ze znaku "Q, bezpo— 
średnio po którym występuje jeden ze znaków tworzących układ 


E R 
S D 
X GQ 


Dyrektywa "QE powoduje przesunięcie kursora do pierwszego 
wiersza ekranu, dyrektywa "QX powoduje przesunięcie kursora 
do ostatniego wiersza ekranu, dyrektywa "QS powoduje przesu— 
nięcie kursora do początku, a dyrektywa "QD powoduje przesu— 
nięcie kursora do końca tego wiersza, w którym znajduje się 
kursor. Dwie pozostałe dyrektywy "'QR i 'QC powodują odpowied— 
nio przesunięcie kursora do początku i do końca pliku. 

Przesuwanie kursora za pómocą dowolnych zestawów wymie— 
nionych tu dyrektyw może służyć dwóm celom: przemieszczaniu 
się w obrębie pliku w celu sprawdzenia jego zawartości oraz 
przemieszczaniu się do obszaru, w którym mają być dokonane 
zmiany. W tym drugim przypadku zmiany mogą polegać na uzupeł— 
nieniu tekstu albo zastąpieniu go innym. W celu uzupełnienia 
tekstu wystąrczy wprowadzić go z klawiatury. Edytor wstawi 
taki tekst przed znak wyróżniony przez kursor, dokonując na 
bieżąco przesunięcia znaku wyróżnionego oraz znaków po nim 
następujących. W celu zmiany tekstu można go najpierw usunąć, 
albo zastąpić nowym — na zasadzie uzupełnienia, albo stary 
tekst wyrugować nowym. To ostatnie rozwiązanie nie należy do 
najlepszych, gdyż rzadko zdarza się, aby stary i nowy tekst 
były tej samej długości. Ponadto jego zastosowanie wymaga 
przejściowego wyłączenia opcji rozsuwania tekstu, pociąga jąc 
za sobą konieczność posłużenia się dyrektywą "V. Każdorazowe 
użycie tego znaku powoduje przełączenie procesora ze stanu 
zastępowania tekstu w stan wstawiania tekstu i odwrotnie. je— 
go dokładne działanie najlepiej jest wypraktykować, Śledząc 
zmiany zachodzące na ekranie. 
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C.3. ZŁOŻONE OPERACJE NA TEKŚCIE 


Opisane dotychczas dyrektywy umożliwiają nie tylko 
utworzenie, lecz również praktycznie dowolne przetwarzanie 
dokumentów. Tym niemniej w pewnych przypadkach przydatne są 
operacje dotyczące większych fragmentów tekstu, takich jak 
przestawienie lub kopiowanie grup sąsiadujących wierszy albo 
wyszukiwanie lub zmiana określonych słów lub fraz. Do takich 
celów służą omówione poniżej dyrektywy blokowe. 


Dyrektywa "QF 


Po wykonaniu tej dyrektywy na ekranie pojawia się napis 
Wzór: 


stanowiący zapytanie o frazę, która ma być wyszukana w doku— 
mencie. Fraza taka składa się z porcji znaków, którą kończy 
naciśnięcie klawisza CR. Bezpośrednio po naciśnięciu klawisza 
CR na ekranie pojawia się zapytanie 
Opc je: 

na które należy odpowiedzieć określeniem trybu poszukiwania 
frazy. W najczęściej używanym przypadku — poszukiwania frazy 
począwszy od pozycji wyróżnionej przez kursor w kierunku koń 
ca pliku — wystarczy w odpowiedzi na zapytanie nacisnąć  kla-— 
wisz CR. Jeśli poszukiwana fraza znajduje się w pliku, to 
kursor zostanie umieszczony bezpośrednio za ostatnim znakiem 
znalezionej frazy. jak łatwo się domyślić, użycie dyrektywy 
"QF nie jest niczym innym jak posłużeniem się dyrektywą edy— 
tora kontekstowego. Należy nadmienić, że wśród opcji określa— 
jących tryb poszukiwania frazy znajdują się m.in. takie jak 

B poszukuj wstecz, 

w ogranicz się do pełnych słów, 

U utożsamiaj litery duże i małe. 


Ponadto można posłużyć się opcją mającą postać liczby. w ta— 
kim przypadku, dla liczby n, poszukiwanie dotyczy n-tego wys— 
tąpienia poszukiwane jj frazy. 


Dyrektywa "QA 


Dyrektywa "QA stanowi rozwinięcie dyrektywy "QF. Bezpo— 
średnio po jej użyciu także pojawia się zapytanie o poszuki— 
waną frazę, ale po naciśnięciu kończącego ją klawisza CR 
pojawia się zapytanie o frazę 
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zamienić z: 
na które należy odpowiedzieć frazą, która ma zastąpić frazę 
podaną po Wzór: Po tej drugiej frazie, także zakończone j 
naciśnięciem klawisza GK, pojawia się znane pytanie o opcje 
określające tryb poszukiwania frazy. Oprócz opcji już 
wymienionych dopuszczline są tu także opcje 
G zastępuj w całym pliku (Ca więc nie od pozycji wy—- 
różnionej przez kursor, lecz od pierwszego znaku 
pliku), 
N zastępuj bezwarunkowo. 


Jeśli użyto opcji N, to wykonanie dyrektywy przebiega aż do 
wykonania wszystkich zastąpień. jeśli nie użyto tej opcji, to 
po każdym znalezieniu poszukiwanej frazy wyświetlane jest za— 
pytanie, czy należy dokonać zastąpienia. Odpowiedź T stanowi 
zgodę na zastąpienie. Dowolna inna odpowiedź powoduje zanie— 
chanie proponowanego zastąpienia i podjęcie poszukiwania na— 
stępnego wystąpienia zastępowane j frazy. Przerwanie tego pro 
cesu można uzyskać za pomocą dyrektywy "U. 


Dyrektywa "KB 


Wykonanie dyrektywy "KB powoduje oznaczenie miejsca w 
tekście jako tzw. początku bloku. Zdefiniowanie bloku wymaga 
dodatkowo użycia dyrektywy "KK. 


Dyrektywa "KK 


Wykonanie dyrektywy "KK powoduje oznaczenie miejsca w 
tekście jako tzw. końca bloku. Dyrektywa ta wraz z dyrektywą 
"KB definiuje blok. Z chwilą zdefiniowania bloku ciąg znaków 
tekstu znajdujący się między pozycjami kursora w chwili wyko— 
nywania dyrektyw "KB i "KK zostaje wyróżniony za pomocą  in- 
wersji znaków albo ich przyciemnienia. Dalej opisane dyrekty— 
wy grupy "Kx będą dotyczyć tej właśnie partii tekstu. 


Dyrektywa "KG 


Wykonanie dyrektywy "KC powoduje skopiowanie bloku wy— 
różnionego przez dyrektywy "KB i "KK na pozycję przed znak 
wyróżniony przez kursor. Po tej operacji kursor zostanie us— 
tawiony na pierwszym znaku Skopiowanego bloku. 


Dyrektywa "KV 


wykonanie dyrektywy "KV powoduje przeniesienie bloku 
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Dyrektywa "KV 


Wykonanie dyrektywy "KV powoduje przeniesienie bloku 
wyróżnionego przez dyrektywy "KB i "KK na pozycję przed znak 
wyróżniony przez kursor. Po tej operacji kursor zostanie us-— 
tawiony na pierwszym znaku przeniesionego bloku, który w swo— 
jej nowej pozycji pozostanie blokiem wyróżnionym. 


Dyrektywa "KY 


Wykonanie dyrektywy "KY powoduje usunięcie wyróżnionego 
bloku. Można dla przykładu nadmienić, że jedynym skutkiem wy- 
konania ciągu "KB, "KK, "KY jest anulowanie wyróżnienia blo— 
ku. 


Dyrektywa "KR 


Wykonanie dyrektywy "KR powoduje wstawienie w miejscu 
wyróżnionym przez kursor tekstu znajdującego Się w zbiorze 
dyskowym. Bezpośrednio po nadaniu tej dyrektywy na ekranie 
monitora pojawia się zapytanie 

Odczyt bloku z pliku: 


o nazwę włączanego zbioru. 


Dyrektywa "KW 


wykonanie dyrektywy "KW powoduje wyprowadzenie do zbio 
ru dyskowego bloku tekstu wyróżnionego przez dyrektywy "KB i 
"KK. Bezpośrednio po użyciu tej dyrektywy na ekranie monitora 
pojawia się zapytanie 


żapis bloku do pliku: 


o nazwę zbioru, w którym zostanie umieszczony wyróżniony 
blok. Jeśli zbiór taki już istnieje, to przed umieszczeniem 
w nim bloku zostaje usunięty, a następnie utworzony ponownie. 


C.4. DYREKTYWY POMOCNICZE 


Dyrektywa ”N 


Wykonanie dyrektywy "N powoduje wstawienie w miejscu 
wyróżnionym przez kursor pary znaków cr-lf, tj. wstawienie 
nowego wiersza. 
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najbliższej pozycji tabulacyjnej. Pozycją tą jest początek 
słowa w wierszu ponad kursorem. 


Dyrektywa 'L 


Wykonanie dyrektywy L powoduje powtórzenie ostatniej 
z dyrektyw QF i "GA. 


Dyrektywa U 


Wykonanie dyrektywy "U powoduje zaniechanie wykonywania 
dowolnej dyrektywy. 


Dyrektywa ”P 


Wykonanie dyrektywy 'P powoduje, że następujący  bezpo— 
średnio za nią znak sterujący jest wprowadzany do pliku. w 
szczególności wprowadzenie sekwencji znaków "P"'MP"J umożli— 
wia identyfikację pary znaków cr-lf kończącej każdy wiersz 
tekstu. 


Inne dyrektywy 


"QL Wycofanie zmian dokonanych podczas edycji bieżącej 
linii. 

"QY Kasowanie do końca linii. 

*QP Przesunięcie kursora do poprzedniej pozycji. 

QB Przesunięcie kursora do pozycji wyróżnionej dyrektywą 
"KB. 

"QK Przesunięcie kursora do pozycji wyróżnionej dyrektywą 
SKK. 

"KH Likwidowanie wyróżnienia i oznaczenia bloku znaków. 


Przykład 
Przesunięcie całego tekstu o 5 kolumn w prawo wymaga wprowa— 
dzenia z klawiatury następujących znaków Cznak CR oznaczono 
symbolem r, a spację symbolem sD 
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